调试看看
msgbox(_UserRoles)
If _UserRoles = "商务经理" Then'如果用户分组是雇员
Dim fl As String = "[商务经理] = '" & _UserName & "'"
If e.DataTable.LoadFilter = "" Then
e.DataTable.LoadFilter = fl
ElseIf e.DataTable.LoadFilter.IndexOf(fl) < 0 Then '如果没有包括雇员条件
e.DataTable.LoadFilter = "(" & e.DataTable.Loadfilter & ") And (" & fl & ")"
End If
End If
If _UserRoles = "销售主管" Then'如果用户分组是雇员
Dim fl As String = "[销售主管] = '" & _UserName & "'"
If e.DataTable.LoadFilter = "" Then
e.DataTable.LoadFilter = fl
ElseIf e.DataTable.LoadFilter.IndexOf(fl) < 0 Then '如果没有包括雇员条件
e.DataTable.LoadFilter = "(" & e.DataTable.Loadfilter & ") And (" & fl & ")"
End If
End If
msgbox(e.DataTable.LoadFilter)