Dim Filter As String
With e.Form.Controls("中康编码3")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "中康编码 = '" & .Value & "'"
End If
End With
With e.Form.Controls("客户名称1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "客户名称 like '%" & .Value & "%'"
End If
End With
If _UserGroup <> "管理员" AndAlso _UserGroup > "" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Dim str As String = "1=2"
For Each bm As String In _UserGroup.split(",")
str &= " or [部门] = '" & bm & "'"
Next
filter = filter & "(" & str & ")"
End If
msgbox(str) '这里弹出什么内容
e.Form.controls("客户名称").Table.DataTable.LoadPage = 0
e.Form.controls("客户名称").Table.DataTable.LoadFilter = filter
e.Form.controls("客户名称").Table.DataTable.Load
Tables("客户资料管理_客户名称").Sort = "添加日期 DESC"
加好友 
发短信
Post By：2019/6/28 20:29:00 [显示全部帖子]
