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