在VB中的文本框显示数据库的数据
VB中的DATAGRID已经通过ADO空间与SQL连接并显示数据，如何在上面四个文本框TEXT1-TEXT4中去显示DATAGRID前面四列相应的数据？...
VB中的DATAGRID已经通过ADO空间与SQL连接并显示数据，如何在上面四个文本框TEXT1-TEXT4中去显示DATAGRID前面四列相应的数据？
展开
2个回答
展开全部
你的意思 是点击某一行数据，就将该行数据的前四列显示在四个text控件里？
追问
是的，点到哪一行，就显示哪一行的前四列数据
追答
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) '当选中控件中的数据时，将选中的数据在右边的Text中显示每个字段
Text1.Text = DataGrid1.Columns("学号").CellText(DataGrid1.Bookmark)
Text2.Text = DataGrid1.Columns("姓名").CellText(DataGrid1.Bookmark)
Text3.Text = DataGrid1.Columns("性别").CellText(DataGrid1.Bookmark)
Text4.Text = DataGrid1.Columns("出生日期").CellText(DataGrid1.Bookmark)
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你是要前四列的数据全部显示在对应Text里面？
追问
不是，是点到哪一行，就显示哪一行的前四列数据
追答
我给你放了两种方式，第一种没试过不知道行不，你自己试试
c = DATAGRID1.Columns.Count '列数
r = DATAGRID.Rows.Count '行数
For i = 1 To c
text1 = i * 1
text1 = i * 2
text1 = i * 3
text1 = i * 4
Next
lv1len = GridView1.Columns.Count
For i = 1 To lv1len
If UserForm1.Lv1.ListItems(i).Checked = True Then
text1 = UserForm1.Lv1.ListItems(i).ListSubItems(1).Text
text2 = UserForm1.Lv1.ListItems(i).ListSubItems(2).Text
text3 = UserForm1.Lv1.ListItems(i).ListSubItems(3).Text
text4 = UserForm1.Lv1.ListItems(i).ListSubItems(4).Text
End If
Next
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
