请修改下在LoadUserSetting项目事件中的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请修改下在LoadUserSetting项目事件中的代码

共有2020人关注过本帖树形打印复制链接主题：请修改下在LoadUserSetting项目事件中的代码

wjhjhj

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：50 积分：449 威望：0 精华：0 注册：2018/7/18 8:22:00

请修改下在LoadUserSetting项目事件中的代码 发帖心情

Post By：2018/8/5 20:53:00 [只看该作者]

修改代码

Post By：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编辑过]