Private Sub Form_Load()
conn_mdb '建立数据库连接Set Rstmp = conn.Execute("select * from DBA_czyk")Dim i As IntegerRstmp.MoveFirstFor i = 1 To Rstmp.RecordCountCombo1.AddItem Rstmp.Fields("czydm") & "[" & Rstmp.Fields("czyxm") & "]", i - 1Rstmp.MoveNextNextCombo1.ListIndex = 0 Text1.TabIndex = 0 '这句话可以起作用'Text1.SetFocus '但是这句却提示"无效的过程或参数调用"???End Sub
如上不解ing~~
conn_mdb '建立数据库连接Set Rstmp = conn.Execute("select * from DBA_czyk")Dim i As IntegerRstmp.MoveFirstFor i = 1 To Rstmp.RecordCountCombo1.AddItem Rstmp.Fields("czydm") & "[" & Rstmp.Fields("czyxm") & "]", i - 1Rstmp.MoveNextNextCombo1.ListIndex = 0 Text1.TabIndex = 0 '这句话可以起作用'Text1.SetFocus '但是这句却提示"无效的过程或参数调用"???End Sub
如上不解ing~~
不能获得焦点
把Text1.SetFocus写到Form_Activate里即可