以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  操作日志导致项目无法启动的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89433)
--  作者：天若千颖
--  发布时间：2016/8/22 9:04:00
--  操作日志导致项目无法启动的问题
给项目增加了数据操作日志，根据红袍老师在论坛上给出的例子，代码修改如下：
If e.DataTable.Name <> "系统数据操作日志表" Or e.DataTable.Name <> "系统登录日志表"  Then
    If e.DataRow.RowState = 2 Then
        Return
    Else
        Dim dr As DataRow = DataTables("系统数据操作日志表").AddNew
        dr("ID") = e.DataRow("_Identify")
        dr("用户") = User.Name
        dr("涉及表") = e.DataTable.Name
        dr("涉及列") = e.DataCol.Name
        dr("涉及行") = e.DataRow("_Identify")
        dr("时间") = Date.Now
        dr("操作") = """" & e.OldValue &  """ 改成了 """ & e.NewValue & """"
        Dim str As String = ""
        For Each c As DataCol In e.DataTable.DataCols
        If c.name = e.DataCol.name Then
        str += c.Name & "=" & e.oldvalue & "|"
        Else
        str += c.Name & "=" & e.DataRow(c.Name) & "|"
        End If
        Next
        dr("原行数据") = str
    End If
End If

因为我有一个系统登录日志表，记录每次用户登录的信息，所以数据操作日志里面不需要记录这张表的操作情况。
但是，这里这么一写，项目在加载数据完毕之后刚打开界面就自动关闭了，不知为何？
If e.DataTable.Name <> "系统数据操作日志表" Or e.DataTable.Name <> "系统登录日志表"  Then
--  作者：大红袍
--  发布时间：2016/8/22 9:39:00
--  

 

If e.DataTable.Name <> "系统数据操作日志表" AndAlso e.DataTable.Name <> "系统登录日志表"  Then

 
--  作者：天若千颖
--  发布时间：2016/8/22 9:52:00
--  
确实是这个问题，解决了，谢谢红袍老师。