With e.Form.Controls("txtcp")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "convert(varchar(200),Product) like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("txtgdh")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "convert(varchar(200),PNum) like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("txtddh")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "convert(varchar(200), OrderNum) like '%" & .Value & "%'"
End If
End With
加好友 
发短信
Post By：2018/10/24 17:44:00 [只看该作者]
