Question

vb 如何实现点击DATAGRID后文本框TEXT1显示数据信息

若有数据库:INFO(姓名,性别)
控件:DATAGRID1
COMMAND1
TEXT1
ADODC1.DATASOUR="SELECT * FROM INFO"
需要实现:左键点击DATAGRID1后..TEXT1.TEXT等于选中的数据库记录:姓名.
Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Text6.Text = Text1.Text
End If
End Sub
这个代码要双击后,TEXT1才显示数据库信息.能不能改成单击显示啊.请各位高手指点小弟.

Answer 1

Private Sub DataGrid1_click(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Text6.Text = Text1.Text
End If
End Sub

或者你绑定Text datasouce 和grid 的 datasouce 一样, datafiled 为姓名