红袍老师,这段代码是上次我在论坛上发现的,也是你写的,我恰好也缺,解决了我的一个大问题!想问一下,这段代码怎么改成每一个修改都能记录下来,而不是被其他修改给覆盖掉。
If e.DataCol.name <> "备注" Then
If e.DataRow.IsNull("备注") Then
e.DataRow("备注") = Date.now & user.name
Else
e.DataRow("备注") = vbcrlf & Date.now & " " & user.name & " 把【" & e.DataCol.Name & "】从'" & e.OldValue & "'修改成 '" & e.NewValue & "'"
End If
End If