当然也可以用setfocus方法 前提是要在formload中提前把这个窗体show出来 比如 private sub form_load() form1.show text1.setfocus end sub 这样就可以了 因为setfocus方法是对可见控件而言的 在form show出来之前,textbox等控件是不可见的,所以不能直接在formvload过程中使用
装载窗体时应该这样Private Sub Form_Activate() cboUser.SetFocus End Sub
先在from_loca的load 事件中将窗体呈现出来后调用文本框控件的setfocus方法如:
Private Sub from_loca()
from_loca.Show Text1.SetFocusEnd Sub
private sub form_load() text1.setfocus end sub很简单,结贴吧!!
借贵宝地一用撒窗体上有一个TEXT,一个COMMANDBUTTON,一个ADODC,一个DATAGRID 我想在TEXT输入要查询的表名 DATAGRID就显示记录Private Sub Command1_Click() Adodc1.RecordSource = "select * from " + Trim(Text1.Text) Set DataGrid1.DataSource = Adodc1 End Sub现在我输入第一个表名能显示。但是输入第二个的时候,点击了COMMANDBUTTON之后,DATAGIRD显示的还是第一个表的记录。请问,应该怎么写代码???
老大你没有刷新datagrid 你这样吧看能不能行 Adodc1.RecordSource = "select * from " + Trim(Text1.Text) Set DataGrid1.DataSource = Adodc1 adodc1.refrsh datagrid1.refresh end sub
text2.tabindex=1
按tab键切换到下一个tabindex的控件
前提是要在formload中提前把这个窗体show出来
比如
private sub form_load()
form1.show
text1.setfocus
end sub
这样就可以了
因为setfocus方法是对可见控件而言的
在form show出来之前,textbox等控件是不可见的,所以不能直接在formvload过程中使用
cboUser.SetFocus
End Sub
Private Sub from_loca()
from_loca.Show
Text1.SetFocusEnd Sub
text1.setfocus
end sub很简单,结贴吧!!
我想在TEXT输入要查询的表名
DATAGRID就显示记录Private Sub Command1_Click()
Adodc1.RecordSource = "select * from " + Trim(Text1.Text)
Set DataGrid1.DataSource = Adodc1
End Sub现在我输入第一个表名能显示。但是输入第二个的时候,点击了COMMANDBUTTON之后,DATAGIRD显示的还是第一个表的记录。请问,应该怎么写代码???
Adodc1.RecordSource = "select * from " + Trim(Text1.Text)
Set DataGrid1.DataSource = Adodc1
adodc1.refrsh
datagrid1.refresh
end sub