Private Sub Form_Load()Set rs = con.Execute("select * from t_landrent")
    MsgBox getMaxId()
If rs.RecordCount > 0 Then
    rs.MoveFirst
    displayInfo
Else
    Command2(0).SetFocus
    
End IfMsgBox "form1 load!!!"
End Sub

解决方案 »

  1.   

    得到焦点的事件写到Form_Activate事件中Private Sub Form_Activate()
      Command2(0).SetFocus
    End Sub
      

  2.   

    得到焦点的事件写到Form_Activate事件中Private Sub Form_Activate()
      Command2(0).SetFocus
    End Sub
      

  3.   

    得到焦点的事件写到Form_Activate事件中Private Sub Form_Activate()
      Command2(0).SetFocus
    End Sub
      

  4.   

    Private Sub Form_Load()Set rs = con.Execute("select * from t_landrent")
        MsgBox getMaxId()
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        displayInfo
    Else
        'Command2(0).SetFocus '此时控件还不可见,当然不行
        Command2(0).TabIndex = 0
    End IfMsgBox "form1 load!!!"
    End Sub
      

  5.   

    Form_Load()事件中,窗体上的控件还没有定位,所以不能setfocus!
    ??
      

  6.   

    setfocus 不能放到LOAD事件中,...放在别的事件中就可以啦如Form_Activate()中