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才显示数据库信息.能不能改成单击显示啊.请各位高手指点小弟.
展开
 我来答
glass_nfl49ac
2009-01-15 · TA获得超过1030个赞
知道大有可为答主
回答量:2711
采纳率:79%
帮助的人:591万
展开全部
应该在:

Private Sub DataGrid1_Click()
。。。。写语句,单击后网格数据进入【文本框】。
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
wenhongl
2009-01-15 · TA获得超过196个赞
知道小有建树答主
回答量:412
采纳率:0%
帮助的人:397万
展开全部
前面已经回答
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
巨涵拜寒梅
2020-01-11 · TA获得超过3802个赞
知道大有可为答主
回答量:3174
采纳率:28%
帮助的人:154万
展开全部
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
为姓名
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式