这个代码我是设置在窗口全局事件 TEXTCHANGED里的，哪里有问题吗
Dim Filter As String
With e.Form.Controls("业务员")
If .text IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "业务员 like '%" & .text & "%'"
End If
End With
With e.Form.Controls("客户")
If .text IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "客户 like '%" & .text & "%'"
End If
End With
With e.Form.Controls("花号")
If .text IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "花号 like '%" & .text & "%'"
End If
End With
With e.Form.Controls("面料")
If .text IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "面料 like '%" & .text & "%'"
End If
End With
加好友 
发短信
Post By：2022/2/14 9:41:00 [显示全部帖子]
