afterload
Dim t As Table = Tables("表A")
With Tables("主表")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "项目 = " & .Current("项目")
End If
End With
tables(“主表").select(0,0)
CurrentChanged
If Forms("窗口2").Opened() Then'
Dim t As Table = Tables("表A")
With Tables("主表") '
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "项目 = '" & .Current("项目") & "'"
End If
End With
End If
注：主表与表A是模拟关联，表A是明细表
1.不模拟关联时，执行蓝代码正常；
2. 模拟关联时，执行上面代码，失效,如何解决？；