5、关闭窗口设计器,回到产品表,打开表属性设置窗口,将其CurrentChanged事件代码设为:
If Forms("窗口1").Opened() '一定要判断用于模拟关联表的窗口是否已经打开 Dim t As Table = Tables("窗口1_Table1") With Tables("产品") If .Current Is Nothing Then t.Filter = "False" Else t.Filter = "产品编号 = " & .Current("产品编号") End IF End WithEnd If