以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  动态日志数据写入报错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=191042)

--  作者:yifan3429
--  发布时间:2024/3/23 1:28:00
--  动态日志数据写入报错
Dim cmd As New SQLComm and
Dim dt As DataTable
cmd.ConnectionN ame = "2022"
cmd.CommandTex t = "SEL ECT * Fr om {系统_数据操作日志}"
wdt = cmd.Execut eReader(True)

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

--  作者:有点蓝
--  发布时间:2024/3/23 9:38:00
--  
报什么错?http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626