好吧问答库 > 请问vb里datagrid1显示表1的内容，点击内容时在datagrid2中显示表2中对应的内容，怎么实现？

请问vb里datagrid1显示表1的内容，点击内容时在datagrid2中显示表2中对应的内容，怎么实现？

两个表共同项是did。access数据库...

2026年09月26日 03:53

有2个网友回答

网友（1）：

参考：Adodc1.RecordSource = "select * from 表1"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh

网友（2）：

在 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