根据帮助文件—自定义用户与权限管理编写的项目文件，运行正常。但是当打开项目文件，在登录窗口直接按取消按钮时，会提示出错，如何修改代码，不再出现出错提示，请各位老师指教，谢谢！！

此主题相关图片如下：j.png

代码如下：

项目事件AfterOpenProject

Forms("用户登录").Open()
Dim mydate As Date = Today()
Dim y1 As Integer = mydate.Year-2
\'生成ljrq表
Dim p As new OuterTableBuilder
p.TableName = "ljrq"
p.C
p.SelectString = "Select id,bh,ljrq From {DA_CRJ} WHERE Left(ljrq,4) >= 2000"
p.Build
Tables("ljrq").AutoSizeCols()

用户登录窗口取消按钮Click

e.Form.Close()
Syscmd.Project.Exit()

为题不是在你贴出的事件代码中，是在菜单的AfterSelChange事件中，窗口的错误代码位置已经告诉你了。

谢谢狐爸老师的回复，现将菜单,AfterSelRangeChange事件的代码贴上，请狐爸老师指教，谢谢！！

Dim t As Table
RibbonMenu.StatusBar.Message3 = ""
Vars("SysUpdateAggregate") = False
If e.Table IsNot CurrentTable OrElse CurrentTable Is Nothing Then
    Return
Else
    t = CurrentTable
End If
If t.TopRow = t.BottomRow AndAlso t.LeftCol = t.RightCol Then
    Return
End If
For c As Integer = t.LeftCol To t.RightCol
    If c < 1 Then
        Continue For
    End If
    If t.Cols(c).IsNumeric = False Then
        Return
    End If
Next
Vars("SysUpdateAggregate") =  True

用CaseStudy目录下的文件"自定义用户管理.Table"做的案例，在项目事件AfterOpenProject加了如下代码，打开项目，在用户登录窗口直接按取消按钮，就会弹出错误提示。还请狐爸老师帮助看看，如何解决。谢谢！！

Forms("用户登录").Open()
\'生成bb表
Dim r As new OuterTableBuilder
r.TableName = "BB"
r.SelectString = "Select * From {表A}"
r.Build

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:案例.rar