主题：[求助]关联表问题

修改 【表A.表B.表C】 的值，表C对应行的值，绝对也一起修改了，请认真测试。

不可以设置成副本表。关联表只有1个。

如果你需要，可以模拟关联 http://www.foxtable.com/webhelp/scr/2222.htm

改成这样不行？

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

If e.Table.Current Is Nothing Then Return

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

If Forms("窗口2").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
    Dim t As Table = Tables("窗口2_Table1")
    With Tables("产品")
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            t.Filter = "客户编号 in ('" & DataTables("订单").GetComboListString("客户编号", "产品编号 = '" & .Current("产品编号") & "'").replace("|", "','") & "')"
        End If
    End With
End If

If e.Table.Current Is Nothing Then Return

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

If Forms("窗口2").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
    Dim t As Table = Tables("窗口2_Table1")
    With Tables("产品")
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            Dim s = DataTables("订单").GetComboListString("客户编号", "产品编号 = '" & .Current("产品编号") & "'").replace("|", "','")
            t.Filter = "客户编号 in ('" & iif(s>"", s, "-1") & "')"
        End If
    End With
End If

参考

http://www.foxtable.com/webhelp/scr/0596.htm