主题：模拟关联表的问题

回复1楼

Dim t As Table = Tables("窗口2_Table2")
With Tables("客户资料")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "编号 = '" & .Current("编号") & "'"
    End If
End With
t = Tables("窗口2_Table3")
With Tables("客户资料")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "编号 = '" & .Current("编号") & "'"
    End If
End With
t = Tables("窗口2_Table4")
With Tables("客户资料")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "编号 = '" & .Current("编号") & "'"
    End If
End With

回复2楼，看你实际需求，如果删除后无法达到效果，那就写在一起。

具体问题做个例子说明。