特定用户加载特定的表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dr As DataRow = DataTables("Users").find("Name= '" & _UserName & "'")
If dr IsNot Nothing Then
    Dim nms1() As String = dr("可以打开的表").Split(",")

    If _UserName = "王五" Then
        For Each dt As DataTable In DataTables
            If Array.IndexOf(nms1, dt.name) >= 0 Then
                'If dt.name = "全部合同" Or dt.name = "合同转换" Then
                dt.LoadFilter = ""
                dt.Load()
            Else
                dt.LoadFilter = "[_Identify] Is Null"
                dt.Load()
            End If
        Next
    End If
End If

主题：特定用户加载特定的表