主题：关联问题

 同步显示控制currentchanged事件即可

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 With
End If

Dim nr As Row = Tables("窗口1_Table2").AddNew()

nr("某列") = "xxx"

nr("某列") = "yyy"

不对呀，新增行后，某列应该是产品表（上表）选定的行的值。另外，新增的行不是在窗口表中新增，而是在主表（产品）新增。