请问vb里datagrid1显示表1的内容,点击内容时在datagrid2中显示表2中对应的内容,怎么实现?
2个回答
展开全部
参考慎历毁:Adodc1.RecordSource = "宽备select * from 表烂粗1"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在 DataGrid1_RowColChange() 事件野绝启里编写代码:
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
DataGrid1.Col = DataGrid1.Columns("did"颂如).ColIndex
Adodc2.RecordSource = "宏旦Select * From 表名 Where did='" & DataGrid1.Text & "'"
Adodc2.Refresh
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
DataGrid1.Col = DataGrid1.Columns("did"颂如).ColIndex
Adodc2.RecordSource = "宏旦Select * From 表名 Where did='" & DataGrid1.Text & "'"
Adodc2.Refresh
End Sub
追问
DataGrid2 还是不显示内容
追答
除非,你选的 did 在 DataGrid2 里不存在?
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询