主题：权限管理下加载数据表的问题！

If User.group ="分校主管" Then
   
    Dim fx As DataRow
   
    Dim ma As String
   
    fx=DataTables("分校").find("[分校主管] = '" & User.Name & "'")
    If fx IsNot Nothing Then
        ma = fx("分校编号")
       
        DataTables("学员信息").LoadFilter = "学员编号 like '" & ma & "%'"  '加载登陆用户所负责的学员也就是以ma分校编号开头的学员编号
       
        DataTables("报名缴费").LoadFilter = "学员编号 like '" & ma & "%'"  '加载登陆用户所负责的学员也就是以ma分校编号开头的学员编号
    End If
Else
   
    DataTables("学员信息").LoadFilter = ""
   
    DataTables("报名缴费").LoadFilter = ""
   
End If

DataTables("学员信息").Load()