If User.Group <> "市场部" AndAlso User.Group <> "管理层" Dim fl As String = "签订单位 = '" & User.Group & "'" 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