Foxtable(狐表)用户栏目专家坐堂 → 关于修改记录保存到列中


  共有1406人关注过本帖平板打印复制链接

主题:关于修改记录保存到列中

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


加好友 发短信
等级:二尾狐 帖子:534 积分:4255 威望:0 精华:0 注册:2016/4/17 20:05:00
关于修改记录保存到列中  发帖心情 Post By:2017/8/17 23:02:00 [只看该作者]

老师,这段代码怎么修改?我想实现只要不是新增行,其他行的数据有变动,全部将原始值与变动值记录在Log列中

Dim dt As DataTable = DataTables("系统初始化")
For Each dr As DataRow In dt.DataRows
    If dr.RowState = DataRowState.Added Then
         e.DataRow("区域报表系统初始化_Log") = ""
Else
     e.DataRow("区域报表系统初始化_Log") &= vbcrlf & Date.now & " " & user.name & " 把【" & e.DataCol.Name & "】从'" & e.OldValue & "'修改成 '" & e.NewValue & "'"
    End If
Next

 回到顶部