主题：[求助]如何记录修改日志？

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

谢谢有点甜，这样写基本上可以达到我想要到功能了。只是我这个表格，有一些列在初次录入时，可以为空。但在审核时，可能会根据实际情况，在空白列添加一些数据进去。这样的话，判断句vars("oldvalue")<>nothing ,可能就无法将后添加的数据加入到日志当中。如图：

 那你可以把这句去掉 vars("oldvalue")<>nothing

有点甜：你那么晚还在回复，真敬业呀！我也试过把vars("oldvalue")<>nothing去掉，但去掉后，无论是第一次录入还是审核时录入的数据，都会记录在日志中。也尝试通过用户来判断，如：If _Username = "XXX" then ，然后用XXX的用户登录后修改时，日志列无任何内容。

 数据表是无法区分第几次编辑的，而且理应是记录每一次的改变的。

如果用权限或用户来判断，可以吗？因为我只想记录修改的人修改过什么？不想过多的内容占用空间。

If _Username = "XXX" then  没道理没有. 你弹出一下 _Username 看看

If _username.Trim() = "陈碧霞" Then