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

我在全局表事件加入下面的代码，同时在项目事件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()

 

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

放到全局表事件的DataRowadded中。

谢谢狐狸爸爸！按照他的建议，解决了问题，代码如下：

Dim  tbl  As DataRow

If e.DataTable.Name <> "操作记录" Then
    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()
End If