Dim Filter As String
With e.Form.Controls("_mtxz")
If .Value IsNot Nothing Then
Filter = "媒体 = '" & .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 & "地址 like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("_khlx")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "客户类型 = '" & .Value & "'"
End If
End With
If Filter > "" Then
DataTables("表A").loadFilter = Filter & " And 回访人 Is Null " & " And " & " [客户类型] <> '休眠客户'"
DataTables("表A").Load
End if
请问下。这段代码会略过客户类型为空的数据应该怎么改才对。。
加好友 
发短信
Post By：2017/11/15 15:17:00 [只看该作者]
