求高手帮忙修改一下用户登录窗口一下谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

师傅我在

AfterOpenProject 里写入如下代码后，当登录 “用户登录”后进入系统出现的是新建页面而不是我想要的主页？

dvubb 此主题相关图片如下：1an@ove1pv6p0yhje@7`9px.jpg

dvubb 此主题相关图片如下：%{la0vt4g4olzv2((o)td{0.jpg

当我把新建这个表名改成新建分类等其他名字是登录的时候出现 “不存在名称为“新建”的Table！”

错误代码位置：项目,AfterOpenProject

System.NullReferenceException: Object reference not set to an instance of an object.

at UserCode.AfterOpenProject()
---------------------------
确定
---------------------------

您能帮我看看吗？谢谢您！

代码

For Each t As Table In Tables
    t.Visible = False
    For Each c As Col In t.Cols
        c.Visible = False
        c.AllowEdit = False
    Next
Next
Forms("用户登录").Show()
Forms("主桌面").open

Dim roles() As String = _userGroup.Split(",")
For Each role As String In roles
    Dim drs As List(Of DataRow) = DataTables("权限").Select("可见 = '" & role & "' or 可见 like '" & role & ",*' or 可见 like '*," & role & ",*' Or 可见 like '*," & role & "'")
    For Each dr As DataRow In drs
        If dr.Isnull("表名") AndAlso dr.Isnull("列名") Then
            For Each t As Table In Tables
                t.Visible = True
            Next
        Else If dr.isnull("列名") Then
            Tables(dr("表名")).Visible = True
            For Each c As Col In Tables(dr("表名")).Cols
                c.Visible = True
            Next
        Else
            Tables(dr("表名")).Visible = True
            For Each c As Col In Tables(dr("表名")).Cols
                If dr("列名") = c.name OrElse dr("列名") Like c.name & ",*" OrElse dr("列名") Like "*," & c.name & ",*" OrElse dr("列名") Like "*," & c.name Then
                    c.Visible = True
                End If
            Next
        End If
    Next

    drs = DataTables("权限").Select("可编辑 = '" & role & "' or 可编辑 like '" & role & ",*' or 可编辑 like '*," & role & ",*' Or 可编辑 like '*," & role & "'")
    For Each dr As DataRow In drs
        If dr.Isnull("表名") AndAlso dr.Isnull("列名") Then
            For Each t As Table In Tables
                t.Visible = True
                t.AllowEdit = True
            Next
        Else If dr.isnull("列名") Then
            Tables(dr("表名")).Visible = True
            For Each c As Col In Tables(dr("表名")).Cols
                c.Visible = True
                c.AllowEdit = True
            Next
        Else
            Tables(dr("表名")).Visible = True
            For Each c As Col In Tables(dr("表名")).Cols
                If dr("列名") = c.name OrElse dr("列名") Like c.name & ",*" OrElse dr("列名") Like "*," & c.name & ",*" OrElse dr("列名") Like "*," & c.name Then
                    c.Visible = True
                    c.AllowEdit = True
                End If
            Next
        End If
    Next
Next

下载信息 [文件大小：下载次数： ]
点击浏览该文件:整合客户营销推广管理系统001.table

[此贴子已经被作者于2013-6-18 16:08:05编辑过]

主题：求 高手帮忙修改一下 用户登录窗口一下 谢谢

主题：求高手帮忙修改一下用户登录窗口一下谢谢