请老师帮忙修改一下：

在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\'在封闭块中隐藏变量”

请修改一下，谢谢!!!