主题：模拟关联表的问题

回复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