[求助]如何实现日志功能记录多个编辑人和编辑时间？多谢。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

AfterEdit中加入以下代码，编辑人一行只能记录最后一位编辑人员，我想实现日志功能，不同的登录用户编辑了内容，即记录该用户名和编辑时间，该如何实现？多谢。

If e.Row.Isnull("账号")=False Then

e.Row("编辑人")=user.name

e.Row("编辑时间")=now

Else

e.Row("编辑人")=Nothing

e.Row("编辑时间")=nothing

End If

If e.Row.Isnull("账号")=False Then

e.Row("编辑人")=e.Row("编辑人") & user.name

e.Row("编辑时间")=e.Row("编辑时间") & now

End If

再请教下，可以实现?如何实现记录编辑人、编辑时间和编辑内容的日志呢？多谢。即:编辑人、编辑时间、编辑了什么。

[此贴子已经被作者于2016/10/3 11:41:25编辑过]

用一个列，列名编辑日志，备注型：

e.Row("编辑日志")=e.Row("编辑日志") & user.name & “|” & Date.now & "|" e.text & vbcrlf

加入到changeedit中:e.Row("编辑日志")=e.Row("编辑日志") & user.name & "|" & Date.now & "|" & e.text & vbcrlf

只记录账号一列（看参数TEST解释，是只记录编辑文本？），测试时也只记录了一个文本列，其他逻辑型等数据编辑变更日志未记录。

[此贴子已经被作者于2016/10/3 21:23:59编辑过]

afterEdit事件

if e.col.name <> "编辑日志" then

e.Row("编辑日志")=e.Row("编辑日志") & user.name & "|" & Date.now & "|" & e.text & vbcrlf

end if

报未知的编译错误，把e.teXt去掉就OK，AFTERedit说明里面没有TEXT参数。

if e.col.name <> "编辑日志" then

e.Row("编辑日志")=e.Row("编辑日志") & user.name & "|" & Date.now & "|" & vbcrlf

end if

但一旦这么做了，又没记录编辑内容了。

[此贴子已经被作者于2016/10/4 11:59:46编辑过]

if e.col.name <> "编辑日志" then

e.Row("编辑日志")=e.Row("编辑日志") & user.name & "|" & Date.now & "|" & e.row(e.col.name) & vbcrlf

end if

多谢狐爸，试了下代码，afteredit事件是不是只能记录新值？旧值记录不了？后来我在datacolchanged用以下代码尝试实现，测试了下，感觉好像可以，能帮忙看下是否有问题吗？

Select Case e.DataCol.name
    Case "账号"
        If e.NewValue Is Nothing Then
            e.DataRow("户名") = Nothing
            e.DataRow("机构") = Nothing
            e.DataRow("核准时间") = Nothing
            e.DataRow("是否黑名单")=Nothing
        Else
            e.DataRow("编辑日志") = e.DataRow("编辑日志") & User.Name & " " & Date.Now & "将" & e.DataCol.name & " """ & e.OldValue & """ 修改为 """ & e.NewValue & """" & vbcrlf
            Dim jcxx,rhhz,hmd As DataRow
            jcxx = DataTables("基础数据表").Find("[账号] = '" & e.NewValue & "'")
            rhhz = DataTables("核准信息").Find("[账号] = '" & e.NewValue & "'")
            If jcxx IsNot Nothing Then
                e.DataRow("户名") = jcxx("户名")
                e.DataRow("机构") = jcxx("机构")
                If rhhz IsNot Nothing Then e.DataRow("核准时间") = rhhz("核准时间")
                hmd=DataTables("黑名单").find("[户名] = '" & e.DataRow("户名") & "'")
                If hmd IsNot Nothing Then
                    e.DataRow("是否黑名单")=True
                Else
                    e.DataRow("是否黑名单")=False
                End If
            End If
        End If
    Case Else
        If e.DataCol.name<>"编辑日志" Then
            e.DataRow("编辑日志") = e.DataRow("编辑日志") & User.Name & " " & Date.Now & "将" & e.DataCol.name & " """ & e.OldValue & """ 修改为 """ & e.NewValue & """" & vbcrlf
        End If
End Select

主题：[求助]如何实现日志功能记录多个编辑人和编辑时间？多谢。