主题：表beforeload事件设置加载数据仅显示符合条件的数据

Dim dr As DataRow = DataTables("用户信息").find("用户名 = '" & 用户名 & "'")  '找到当前登录者所在

Dim filter As String = "1=2"

If dr("职位") = "管理者" Then

    Dim drs = DataTables("部门信息").Select("层级 like '" & dr("层级") & "%'")

    For Each cdr As DataRow In drs

        Filter &= " or 当前所在部门 = '" & cdr("所属部门") & "'"                   ' And 是否可用 = 1"

    Next

Else If dr("职位") = "职员" Then

    Filter = "当前所在部门 = '" & dr("所属部门") & "'"                                     'And 是否可用 = 1"

End If

If e.DataTable.LoadFilter > "" Then

    If e.DataTable.LoadFilter.Contains(Filter) = False

        e.DataTable.LoadFilter = e.DataTable.LoadFilter &  " and ( " & Filter & ")"

    End If

Else

    e.DataTable.LoadFilter = Filter

End If