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

 这个直接在datacolchanged加入代码

 

If e.DataCol.Name <> "日志" then

    e.Datarow("日志") &= vbcrlf & e.Datacol.Name & "  " & e.OldValue & "  " & e.NewValue

End If

 

If e.DataCol.Name <> "日志" AndAlso e.OldValue <> Nothing then

    e.Datarow("日志") &= vbcrlf & e.Datacol.Name & "  " & e.OldValue & "  " & e.NewValue

End If

 不要写到datacolchanged，写到AfterEdit事件

 datacol 换成 col，datarow 换成 row

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

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

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

 没问题啊，

 后台数据怎么可能触发afteredit事件？

 

 如果你在控件，比如文本框中修改值，就把代码写在控件里