S行政区域ZD表格beforeLoad事件
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
或者是,把beforeLoad事件的代码删除掉。
[此贴子已经被作者于2017/12/13 16:44:22编辑过]