主题：修改代码

请老师帮忙修改一下：

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

请修改一下，谢谢!!!