按照论坛中的方法，弄了个操作日志，结果没有起作用，全局表事件也写了系统使用自定义用户模式，是不是全局表事件不能写在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
加好友 
发短信
Post By：2022/4/13 9:28:00 [显示全部帖子]
