主题：全局表事件遇到问题

我在全局表事件加入下面的代码，同时在项目事件Initialize里面允许了DataRowadded，但是运行程序，执行了第一个画面（登录）后程序就自动退出了：

Dim  tbl  As DataRow
tbl  = DataTables("操作记录").AddNew()  '记录增加记录"事件
tbl ("用户") = vars("用户名")
tbl ("发生时间")= Date.now
Select Case e.DataTable.Name
    Case "订单管理"
        tbl ("事件")= "增加订单记录"
    Case "生产管理"
       tbl ("事件")= "增加生产管理记录"
    Case "员工管理"
        tbl ("事件")= "增加员工管理记录"
    Case "登录用户"
        tbl ("事件")= "增加登录用户记录"
    Case "内部信息"
        tbl ("事件")= "增加信息收发记录"
    Case Else
        tbl ("事件")= "增加其它"
End Select

DataTables("操作记录").Save()

不知道怎么回事？有请高手分析一下。谢谢！