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

项目事件:LoadUserSetting

 

If User.group ="分校主管" Then

   Dim fx As DataRow

 Dim ma As String

fx=DataTables("分校").find("[分校主管] = '" & User.Name & "'")

ma = fx("分校编号")

DataTables("学员信息").LoadFilter = "学员编号= '" & ma & "'"  ‘加载登陆用户所负责的学员 也就是以ma分校编号开头的学员编号

DataTables("报名缴费").LoadFilter = "学员编号= '" & ma & "'"  ‘加载登陆用户所负责的学员 也就是以ma分校编号开头的学员编号

Else

DataTables("学员信息").LoadFilter = ""

DataTables("报名缴费").LoadFilter = ""   

End If

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

三个表分别是：分校、学员信息、报名缴费，问题是某一分校下“分校主管”登陆后，加载以它所属"分校编号"开头的“学员编号”（学员编号为8位，前四位就是分校编号）的数据.谢谢！

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()