StartEdit事件
vars("oldvalue") = e.Row(e.Col.Name)
AfterEdit事件
If e.Col.Name <> "日志" AndAlso vars("oldvalue") <> Nothing Then
e.Row("日志") &= iif(e.Row.IsNull("日志"), "", vbcrlf) & e.Col.Name & " " & vars("oldvalue") & " " & e.Row(e.Col.name)
End If