窗口上如何当前登录的用户实现《图书表》按《用户表》的“用户名,阅读权限”加载相应的记录,具体的结果如图:
下面代码有问题,请帮忙处理,谢谢
Dim Filter As String
Dim f2 As String = "[经办人] = '" & User.Name & "'"
Dim dr1 As DataRow = Tables("图书表").Current.DataRow
Dim dr As DataRow = DataTables("用户表").Find("[用户名] = '" & dr1("经办人") & "'And [阅读权限] = '" & dr1("阅读权限") & "'")
If dr IsNot Nothing Then
f2 = " and 用户名 = '" & dr("经办人") & "' And (" & f2 & " Or [阅读权限] = '" & dr("阅读权限") & "')"
Else
f2 = " and " & f2
End If
Filter = Filter & f2
msgbox(Filter)
DataTables("图书表").LoadFilter = Filter
DataTables("图书表").Load()
[此贴子已经被作者于2022/11/28 17:02:57编辑过]