'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
错误所在事件:加载[图书表]失败!
详细错误信息:
至少一个参数没有被指定值。