主题：创建修改日志

---

以下内容是专门发给有点甜浏览

---

一切换到当月二保表,因为重置列了,所以日志里就会出现整列数据修改,不想这几列的修改内容显示在日志里

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:日新车队管理系统.foxdb

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:日新车队数据库.rar

 不会啊

你能不能不乱改代码

 

If e.DataTable.Name <> "日志" Then
    If e.DataRow.RowState = 2 Then
        Return
    Else
        Dim dr As DataRow = DataTables("日志").AddNew
        dr("用户") = User.Name
        dr("时间") = Date.Now
        dr("表名称") = e.DataTable.Name
        dr("列名称") = e.DataCol.Name
        dr("车号")= e.DataRow("车号")
        dr("原数据") = e.OldValue
        dr("操作")= " 改成了 "
        dr("现数据") = & e.NewValue
    End If
End If

甜版,你肯定会.就是不想让那一列的修改保存在日志里,因为那一列是有表达式的,只要一切换到当月二保表里那一列就会重置,整列的内容都会显示在日志里,其它就第一行数据有了变动,其它行就没有数据

甜版,我又错了

日志里原数据列和现数据列是字符型,但是其它表修改的内容有日期列显示15.04.20 0:00:00,这个能显示日期格式的吗?

If e.DataTable.Name <> "日志" Then
    If e.DataRow.RowState = 2 Then
        Return
    Else
        Dim dr As DataRow = DataTables("日志").AddNew
        dr("用户") = User.Name
        dr("时间") = Date.Now
        dr("表名称") = e.DataTable.Name
        dr("列名称") = e.DataCol.Name
        dr("车号")= e.DataRow("车号")
        dr("原数据") = e.OldValue
        dr("操作")= " 改成了 "
        dr("现数据") = & e.NewValue
    End If
End If

If e.DataTable.Name <> "日志" Then
    If e.DataRow.RowState = 2 OrElse DataRowState.Added Then
        Return
    Else
        Dim dr As DataRow = DataTables("日志").AddNew
        dr("用户") = User.Name
        dr("时间") = Date.Now
        dr("表名称") = e.DataTable.Name
        dr("列名称") = e.DataCol.Name
        dr("车号")= e.DataRow("车号")
        dr("原数据") = e.OldValue
        dr("操作")= " 改成了 "
        dr("现数据") = e.NewValue
    End If
End If

不行啊,连修改的内容日志里都不记录了

 

保存后修改才有效。