主题：模拟关联出错

修改红色代码

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