主题：我按照用户手册的“自定义用户与权限管理”这一章节，做了一个自定义的登陆，可是点击登陆界面的“取消”按钮，确出现一系列的错误

AfterOpenProject事件代码如下：

Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
End If

With DataTables("物料类别")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("物料管理")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("仓库管理")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("入库单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("材料出库单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("领料单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("销售出库单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("委外加工单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("退货单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

With DataTables("移库单")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 25
    .LoadPage = 0
    .Load()
End With

Forms("用户登录").Open()
If _UserName = "" Then
     Syscmd.Project.Exit()
End If

改为：

Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()

     Return
End If

道理很简单，系统都退出了，就不应该执行后续代码了，否则肯定出错。