Foxtable(狐表)用户栏目专家坐堂 → 上面代码,如何修改,才能使指定表中的“状态”列内容修改后,不显示在操作日志中?


  共有2217人关注过本帖树形打印复制链接

主题:上面代码,如何修改,才能使指定表中的“状态”列内容修改后,不显示在操作日志中?

帅哥哟,离线,有人找我吗?
fengwenliuyan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
上面代码,如何修改,才能使指定表中的“状态”列内容修改后,不显示在操作日志中?  发帖心情 Post By:2019/6/2 16:34:00 [只看该作者]

Dim cmd As New SQLCommand
cm d.con nection name = "XX区"
Dim dt As DataTable = cmd.ExecuteReader(True)
Select Case e.DataTable.Name
    Case "入库订单表"
        If e.DataRow.RowState = 2 Or e.DataRow("日志") = False 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 = ""
            Dim str1 As String = ""
            For Each c As DataCol In e.DataTable.DataCols
                '            str += c.Name & "=" & e.DataRow(c.Name) & "】,【"
                str += c.Name & "=" & e.DataRow.OriginalValue(c.Name) & "】,【"
                str1 += c.Name & "=" & e.DataRow(c.Name) & "】,【"
            Next
            dr("原行数据") = str
            dr("改后数据") = str1
        End If
End Select

上面代码,如何修改,才能使指定表中的“状态”列内容修改后,不显示在操作日志中?
[此贴子已经被作者于2019/6/2 16:36:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/3 9:03:00 [只看该作者]

 

If e.DataRow.RowState = 2 Or e.DataRow("日志") = False or e.datacol.name = "状态" Then

 

 


 回到顶部