主题：[求助]多个单元格改动之后生成信息写到备注

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