If User.Group = "乡镇" Or User.Group = "县办"
Dim fl As String = "县 in (\'" & DataTables("S征地补偿标准").GetComboListString("县区").replace("|", "\',\'") & "\')"
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