主题：多表筛选

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("aaa").Filter = Filter

    Tables("bbb").Filter = Filter
End If

http://www.foxtable.com/help/topics/2492.htm

http://www.foxtable.com/help/topics/1533.htm