If User.Group =
"雇员"
'如果用户分组是雇员 Dim fl As
String = "[雇员] =
'" & User.Name & "'" 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