.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2021.5.12.1

错误所在事件：窗口,导航,AfterLoad

详细错误信息：

未设置对象变量或 With 块变量。

If _UserGroup <> "超级管理员" Then

    Dim tpb As WinForm.TopicBar = e.Form.Controls("菜单")

    For Each page As WinForm.TopicPage In tpb.Pages

        page.Visible = False

    Next

    For Each dr As DataRow In DataTables("授权表").Select("")

        If dr.IsNull("用户") = False Then

            Dim nms() As String = dr("用户").Split(",")

            For Each nm As String In nms

                If nm = _UserGroup OrElse nm = _UserName Then \'如果授权用户包括登录用户所属的分组或其用户名

                    Dim tpb1 As WinForm.TopicBar = e.Form.Controls("菜单")

                    tpb1.Pages(dr("菜单")).Visible = Not dr("不可见")

                End If

            Next

        End If

    Next

End If

问题 菜单列可以有超过10列的值 ， 对应的用户列（相同的用户）只能填写对应10个菜单列的，如果用户列对应菜单列超过10条数据，就会报错。10条以内没有问题。