把焦点设到datagrid上面要怎么实现/？

Question

如题！
我想通过按command1按钮后把焦点设到datagrid上面，如何实现？

Answer 1

这样不行么？Private Sub Command1_Click()
  DataGrid1.SetFocus
End Sub

Answer 2

这样不行的！
你可以试试
有别的办法吗？
或者我换个问题：把焦点设到datagrid中的任意一行！
怎么实现？
大侠帮忙！

Answer 3

datagrid1.setfocus如果数据源绑定了 ADODC 控件
ADODC1.Recordset.Move n如果数据源绑定了 Recordset 对象
rs.Move n

Answer 4

不懂？
怎么还用到ADODC控件啊？
我没用啊

Answer 5

Private Sub Command1_Click()
Dim R As Long
Randomize
R = Val(InputBox("TO WHICH ROW?", "INFO", Int(Rnd * DataGrid1.ApproxCount + 1)))
DataGrid1.Scroll 0, -DataGrid1.ApproxCount
DataGrid1.Row = 0
SendKeys "{DOWN " & R & "}"
End Sub

Answer 6

Private Sub Command1_Click()
Datagrid1.setfocus
Dim R As Long
Randomize
R = Val(InputBox("TO WHICH ROW?", "INFO", Int(Rnd * DataGrid1.ApproxCount + 1)))
DataGrid1.Scroll 0, -DataGrid1.ApproxCount
DataGrid1.Row = 0
SendKeys "{DOWN " & R & "}"
End Sub