这个直接在datacolchanged加入代码
If e.DataCol.Name <> "日志" then
e.Datarow("日志") &= vbcrlf & e.Datacol.Name & " " & e.OldValue & " " & e.NewValue
End If