主题：[求助]打开项目，点击登录窗口取消按钮出错（已解决）

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

 

 

此主题相关图片如下：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

没看出问题，上传你做的例子。

狐爸老师：因为项目的数据源是SQL，要做成案例要花点时间，刚才我试了一下，将AfterOpenProject事件中除Forms("用户登录").Open()以外的代码全部屏蔽掉，按上述操作，就没有错误提示了，是否可以将这些代码转移到其他事件中，实现同样的功能。请狐爸老师指教，谢谢！！

还是做成案例吧，我真没有办法看出问题来。

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

 

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

 

 

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

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

狐爸老师，按您的要求，做了个案例，请指教。谢谢！！

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

点击浏览该文件:自定义用户管理.rar

谢谢狐爸老师，问题解决了，再次衷心感谢！！