Select Case e.Table.Name
Case "MYSQL-01_Table1"
If Forms("MYSQL-01").Opened() Then'一定要判断用于模拟关联表的窗口是否已经打开
If e.Table.cols.contains("sellID") AndAlso Tables("MYSQL-01_Table2").cols.contains("sellID") Then
Dim t As Table = Tables("MYSQL-01_Table2")
With Tables("MYSQL-01_Table1")
If .Current Is Nothing Then
t.Filter = "False"
MsgBox(t.Filter)
Else
t.Filter = "sellID = '" & .Current("sellID") & "'"
MsgBox(t.Filter)
End If
End With
End If
End If
' MsgBox(t.Filter)
' Case "MYSQL-01_Table2"
' ' '针对MYSQL-01_Table2的代码
' Tables("MYSQL-01_Table2").AddNew()
' Case "表C"
' '针对表C的代码
End Select
上面的代码，执行有以下问题
问题一：没报错，但不能实现选主表的数据，明细也显示关联的数据，只显示主表和明细的第一条关联，其他不能关联显示
问题二：主表可新增，不明细不能新增，启编辑Tables("MYSQL-01_Table2").AllowAddNew = True ，明细还是不能新增，只去掉上面代码，不用启编辑Tables("MYSQL-01_Table2").AllowAddNew = True ，主表和明细均都可以新增。
加好友 
发短信
Post By：2023/4/19 11:28:00 [只看该作者]
