Forms("多收结果").open()
Dim filter As String = ""
With e.Form.Controls("TextBox1")
If .Value IsNot Nothing Then
filter = "[F5319] = '" & .Value & "'"
End If
End With
With e.Form.Controls("TextBox2")
If .Value IsNot Nothing Then
If filter > "" Then
filter = filter & " And "
End If
filter = filter & "[F4407]= '" & .Value & "'"
End If
End With
With e.Form.Controls("TextBox3")
If .Value IsNot Nothing Then
If filter >"" Then
filter = filter & " And "
End If
filter = filter & "[F4384] = '" & .Value & "'"
End If
End With
With e.Form.Controls("TextBox4")
If .Value IsNot Nothing Then
If filter >"" Then
filter = filter & " And "
End If
filter = filter & "[F4419] = '" & .Value & "'"
End If
End With
With e.Form.Controls("TextBox5")
If .Value IsNot Nothing Then
If filter >"" Then
filter = filter & " And "
End If
filter = filter & "[F4384] = '" & .Value & "'"
End If
End With
With e.Form.Controls("TextBox6")
If .Value IsNot Nothing Then
If filter >"" Then
filter = filter & " And "
End If
filter = filter & "[F4403] = '" & .Value & "'"
End If
End With
Forms("多收结果").Controls("Table1").Table.Filter = filter
加好友 
发短信
Post By：2016/8/9 9:00:00 [显示全部帖子]
