以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  内部用户，改为外部用户，报错提示下面，如何解决？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184719)

--  作者：lgz518 --  发布时间：2022/12/26 10:07:00 --  内部用户，改为外部用户，报错提示下面，如何解决？  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:报错.txt

--  作者：有点蓝 --  发布时间：2022/12/26 10:14:00 --   msgbox(Filter)弹出什么内容？

--  作者：lgz518 --  发布时间：2022/12/26 10:42:00 --   此主题相关图片如下：11.jpg

--  作者：有点蓝 --  发布时间：2022/12/26 10:55:00 --   到命令窗口测试下面代码有没有问题 DataTables("图书表").LoadFilter = "\',\'+阅读权限+\',\' like \'%,B,%\'" DataTables("图书表").Load() 或者 DataTables("图书表").LoadFilter = "\',\'+阅读权限+\',\' like \'*,B,*\'" DataTables("图书表").Load()

--  作者：lgz518 --  发布时间：2022/12/26 12:18:00 --   DataTables("图书表").LoadFilter = "\',\'+阅读权限+\',\' like \'*,B,*\'" DataTables("图书表").Load() 上面代码执行后，无加载任何数据 下面代码执行后，加载含B的数据，那代码如何处理？ DataTables("图书表").LoadFilter = "\',\'+阅读权限+\',\' like \'%,B,%\'" DataTables("图书表").Load()

--  作者：有点蓝 --  发布时间：2022/12/26 13:00:00 --   "图书表"有[Name]这列吗

--  作者：lgz518 --  发布时间：2022/12/26 15:37:00 --   "图书表"有[Name]这列吗，没有，只有“作者”列

--  作者：lgz518 --  发布时间：2022/12/26 15:42:00 --   此主题相关图片如下：111.jpg

--  作者：有点蓝 --  发布时间：2022/12/26 15:49:00 --   知道就改正确咯。表都没有这个名称的列，却用来做条件，您觉得合理吗

--  作者：lgz518 --  发布时间：2022/12/26 16:28:00 --   \'Dim Filter As String = "[Name] = \'" & _UserName & "\'" Dim Filter As String = "[作者] = \'" & _UserName & "\'" Dim f2 As String = "1=2 " Dim dr As DataRow = DataTables("Users").Find("[Name]  = \'" & _UserName & "\' and 阅读权限 is not null") If dr IsNot Nothing Then     msgbox(dr("阅读权限"))     For Each s As String In dr("阅读权限").split(",")         f2 = f2 & " or \',\'+ 阅读权限+\',\' like \'%," & s & ",%\'"ext End If Filter = Filter & " or (" & f2 & ")" msgbox(Filter) \'DataTables("图书表").LoadFilter = "\',\'+阅读权限+\',\' like \'%,B,%\'" \'DataTables("图书表").Load() DataTables("图书表").LoadFilter = Filter DataTables("图书表").Load() 按内部，改外部，[Name] 改图书表的[作者] ，也是没效果，是从其实例搬过，对红字代码，也不是太理解， 其实需求：图书表，根据“用户表”的用户[Name]和阅读权限，加载相应的图书。