以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  将内部用户，改为外部用户，报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184714)
--  作者：lgz518
--  发布时间：2022/12/25 17:05:00
--  将内部用户，改为外部用户，报错
\'Dim Filter As String = "[Name] = \'" & User.Name & "\'"

Dim Filter As String = "[Name] = \'" & _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 & ",%\'"
    Next
End If
Filter = Filter & " or (" & f2 & ")"
msgbox(Filter)
DataTables("图书表").LoadFilter = Filter
DataTables("图书表").Load()

将内部用户，改为外部用户，报错提示下面，如何解决？

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：加载[图书表]失败!
详细错误信息：
至少一个参数没有被指定值。
--  作者：有点蓝
--  发布时间：2022/12/25 18:17:00
--  
msgbox(Filter)显示什么内容？