请老师帮忙修改一下:
在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编辑过]