| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 权限管理下加载数据表的问题！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101150) |
| -- 作者：fczhaobo -- 发布时间：2017/5/25 19:18:00 -- 权限管理下加载数据表的问题！ 项目事件: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位，前四位就是分校编号）的数据.谢谢！ |
| -- 作者：wyz20130512 -- 发布时间：2017/5/25 20:24:00 -- DataTables("学员信息").LoadFilter = "学员编号 Like \'" & ma & "*\'" 通过Like进行模糊匹配！
[此贴子已经被作者于2017/5/25 20:26:04编辑过]
|
| -- 作者：有点色 -- 发布时间：2017/5/25 20:42:00 -- If User.group ="分校主管" Then DataTables("学员信息").Load() |