以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]条件加载  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146980)
--  作者：lgj716330
--  发布时间：2020/3/7 9:23:00
--  [求助]条件加载
如示例
表A是档案表,每个登录用户都有自己的店铺权限,表B数据如何根据表A各自的店铺权限进行加载
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目13.foxdb
--  作者：有点蓝
--  发布时间：2020/3/7 9:51:00
--  
看项目事件
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目13.zip
--  作者：lgj716330
--  发布时间：2020/3/7 10:06:00
--  
版本高打不开图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2020/3/7 10:12:00
--  
升级到最新版
--  作者：lgj716330
--  发布时间：2020/3/7 11:25:00
--  
老师，代码贴一下吧，免费升级到期了，等资金充裕了再升级一下
--  作者：有点蓝
--  发布时间：2020/3/7 11:30:00
--  
BeforeLoadInnerTable事件
If e.DataTableName = "表B" Then
    e.Filter = "[_Identify] Is Null"
End  If

LoadUserSetting事件
Dim s As String = DataTables("表A").GetComboListString("店铺名称","\',\' + 登录用户 + \',\' like \'%," & user.Name & ",%\'")
DataTables("表B").LoadFilter = "店铺名称 in (\'" & s.Replace("|","\',\'") & "\')"
DataTables("表B").Load