以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]多个单元格改动之后生成信息写到备注  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86404)
--  作者：syjylyq
--  发布时间：2016/6/16 16:11:00
--  [求助]多个单元格改动之后生成信息写到备注

请问同一行，多个单元格被改动后如何生成信息，如某某在何时把某列改成XXX，写到备注栏里？

 

 

这样对吗 

Dim nms() As String = {"列1","列2","列3"}
Dim r As DataRow = e.DataRow
Dim str As String = ""
For Each c As String In nms
If e.DataCol.Name = c Then
str = r(c).OldValue & "改成" & r(c).NewValue & "."
End If
Next
If str > "" Then
e.DataRow("备注") = Date.Today  & _UserName  &  "编辑:" & str.trim(".")
End If

[此贴子已经被作者于2016/6/16 16:41:03编辑过]
--  作者：大红袍
--  发布时间：2016/6/16 17:16:00
--  

DataColChanged事件

 

Select Case e.DataCol.name
    Case "第一列", "第二列"
        Dim r As DataRow = e.DataRow
        Dim str As String = ""
       
        str = "[" & e.DataCol.name & "]" & e.OldValue & "改成" & e.NewValue & "."
       
        e.DataRow("备注") &= iif(e.DataRow.isnull("备注"), "", vbcrlf) & Date.Today & "编辑:"  & str
End Select