主题：[求助]未将对象引用设置到对象的实例

If User.Type = UserTypeEnum.User Then

    For Each dr1 As DataRow In DataTables("授权表三").DataRows

        Dim nms() As String

        Dim nms1() As String

        If dr1.Isnull("受限角色")=False Then

            nms = dr1("受限角色").Split(",")

        End If

        If dr1.Isnull("非受限角色")=False Then

            nms1 = dr1("非受限角色").Split(",")

        End If

        If dr1("用户名列")=True Then

            For Each nm As String In nms

            For Each nm1 As String In nms1

            If dr1.Isnull("非受限角色")=False And user.roles.contains(nm1) Then

                DataTables(dr1("表名")).LoadFilter = ""

            ElseIf dr1.Isnull("受限角色")=False And user.roles.contains(nm) Then

                DataTables(dr1("表名")).LoadFilter = "" & dr1("列名") & " In ( '" & dr1("列内容").Value.replace(",","','") & "')"

            Else

                DataTables(dr1("表名")).LoadFilter = "" & dr1("列名") & " = '" & User.Name & "'"

            End If

            Next

            Next

        End If

        If dr1("用户名列")=False Then

            For Each nm As String In nms

            For Each nm1 As String In nms1

            If dr1.Isnull("非受限角色")=False And user.roles.contains(nm1) Then

               DataTables(dr1("表名")).LoadFilter = ""

            ElseIf dr1.Isnull("受限角色")=False And user.roles.contains(nm) Then

                DataTables(dr1("表名")).LoadFilter = "" & dr1("列名") & " In ( '" & dr1("列内容").Value.replace(",","','") & "')"

            End If

            Next

            Next

        End If

    Next

End If