If User.Group = "姓名" Dim fl As String = "姓名 = '" & User.Name & "'" msgbox("执行了") 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