事件里面加入msgbox,按是否执行了里面的代码
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
同时,你还需要这样处理
http://www.foxtable.com/webhelp/scr/2256.htm