以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]操作日志无效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176433)
--  作者：lgj716330
--  发布时间：2022/4/13 9:28:00
--  [求助]操作日志无效
按照论坛中的方法，弄了个操作日志，结果没有起作用，全局表事件也写了
系统使用自定义用户模式，是不是全局表事件不能写在Initialize
If e.DataTable.Name <> "系统操作日志" Then
    If e.DataRow.RowState = 2 Then
        Return
    Else
        Dim dr As DataRow = DataTables("系统操作日志").AddNew
        dr("ID") = e.DataRow("_Identify")
        dr("用户") = _UserName
        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
            str += c.Name & "=" & e.DataRow(c.Name) & "|"
        Next
        dr("原行数据") = str
    End If
End If
--  作者：有点蓝
--  发布时间：2022/4/13 9:55:00
--  
表格如果是动态加载的，设置开启全局表事件的代码放到表格加载之后
--  作者：lgj716330
--  发布时间：2022/4/13 12:30:00
--  
如果是增加行下面改成”总共增加了N行“，要怎么写
dr("操作行") = e.DataRow("_Identify")，
--  作者：有点蓝
--  发布时间：2022/4/13 13:31:00
--  
没看懂。