以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  修改代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122936)
--  作者：wjhjhj
--  发布时间：2018/8/5 8:44:00
--  修改代码

请老师帮忙修改一下：

在LoadUserSetting项目事件中，写入：

Dim dr As DataRow    \'查找行
dr = DataTables("参数").Find("[关联_位置] = \'位置3\'")
If dr IsNot Nothing Then \'如果找到将找到行输入的行中.
    If User.IsRole(dr("关联_数值")) Then
        DataTables("密收登记").LoadFilter = ""
    Else
        DataTables("密收登记").LoadFilter = "收报单位 = \'" & User.Group & "\' And 签收状态 = \'未领取\'"
    End If
End If

保存出现：“编译错误：变量\'dr\'在封闭块中隐藏变量”

请修改一下，谢谢!!!

[此贴子已经被作者于2018/8/5 20:45:00编辑过]
--  作者：有点甜
--  发布时间：2018/8/5 21:32:00
--  
如果提示这个，你给dr换一个名称即可。
--  作者：wjhjhj
--  发布时间：2018/8/6 10:25:00
--  
谢谢！