主题：多表筛选

Dim Filter As String
With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = "计划号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("cmbCustomer")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "订单号 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("合同总览").Filter = Filter
End If

 

这个筛选是只针对一个“合同总览”表进行筛选   我想对多表同条件进行筛选  如何加进去

 

Tables("合同总览").Filter = Filter   这段代码如何加进多表