Forms("多收结果").open()
With e.Form.Controls("TextBox1")
If .Value IsNot Nothing Then
Forms("多收结果").Controls("Table1").Table.Filter= "[F5319] = '" & .Value & "'"
End If
End With
With e.Form.Controls("TextBox2")
If .Value IsNot Nothing Then
If Forms("多收结果").Controls("Table1").Table.Filter > "" Then
Forms("多收结果").Controls("Table1").Table.Filter = Forms("多收结果").Controls("Table1").Table.Filter & " And "
End If
Forms("多收结果").Controls("Table1").Table.Filter = Forms("多收结果").Controls("Table1").Table.Filter & "[F4407]= '" & .Value & "'"
End If
End With
With e.Form.Controls("TextBox3")
If .Value IsNot Nothing Then
If Forms("多收结果").Controls("Table1").Table.Filter >"" Then
Forms("多收结果").Controls("Table1").Table.Filter = Forms("多收结果").Controls("Table1").Table.Filter & " And "
End If
Forms("多收结果").Controls("Table1").Table.Filter = Forms("多收结果").Controls("Table1").Table.Filter & "[F4384] = '" & .Value & "'"
End If
End With
With e.Form.Controls("TextBox4")
If .Value IsNot Nothing Then
If Forms("多收结果").Controls("Table1").Table.Filter >"" Then
Forms("多收结果").Controls("Table1").Table.Filter = Forms("多收结果").Controls("Table1").Table.Filter & " And "
End If
Forms("多收结果").Controls("Table1").Table.Filter = Forms("多收结果").Controls("Table1").Table.Filter & "[F4419] = '" & .Value & "'"
End If
End With
With e.Form.Controls("TextBox5")
If .Value IsNot Nothing Then
If Forms("多收结果").Controls("Table1").Table.Filter >"" Then
Forms("多收结果").Controls("Table1").Table.Filter = Forms("多收结果").Controls("Table1").Table.Filter & " And "
End If
Forms("多收结果").Controls("Table1").Table.Filter = Forms("多收结果").Controls("Table1").Table.Filter & "[F4384] = '" & .Value & "'"
End If
End With
With e.Form.Controls("TextBox6")
If .Value IsNot Nothing Then
If Forms("多收结果").Controls("Table1").Table.Filter >"" Then
Forms("多收结果").Controls("Table1").Table.Filter = Forms("多收结果").Controls("Table1").Table.Filter & " And "
End If
Forms("多收结果").Controls("Table1").Table.Filter = Forms("多收结果").Controls("Table1").Table.Filter & "[F4403] = '" & .Value & "'"
End If
End With