vb 如何实现点击DATAGRID后文本框TEXT1显示数据信息
若有数据库:INFO(姓名,性别)控件:DATAGRID1COMMAND1TEXT1ADODC1.DATASOUR="SELECT*FROMINFO"需要实现:左键点击D...
若有数据库: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才显示数据库信息.能不能改成单击显示啊.请各位高手指点小弟. 展开
控件: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才显示数据库信息.能不能改成单击显示啊.请各位高手指点小弟. 展开
3个回答
展开全部
应该在:
Private Sub DataGrid1_Click()
。。。。写语句,单击后网格数据进入【文本框】。
End Sub
Private Sub DataGrid1_Click()
。。。。写语句,单击后网格数据进入【文本框】。
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
前面已经回答
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
为姓名
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
为姓名
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询