注:"DDH","KA"分别为"订单号"和"口岸"的输入框名
'''
Dim Ls As String() = {"DDH","KA","订单号","口岸"}
Dim Ft,Tc As String
For n As Integer = 0 to 1
Tc = e.form.Controls(Ls(n)).Value
if Tc > "" then
Ft = Ft & " And " & Ls(n+2) & " = '" & Tc & "'"
End If
Next
If Ft > "" Then
Tables("A").Filter = Ft.SubString(5)
Tables("B").Filter = Tables("A").Filter
End If