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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何记录修改日志？

共有4677人关注过本帖树形打印复制链接主题：[求助]如何记录修改日志？

有点甜

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/6 15:39:00 [只看该作者]

没问题啊，

rophy0952

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2014/11/6 16:19:00 [只看该作者]

我大概猜到是什么原因了，因为我要修改的是后台数据，而在Afteredit事件中录入datacol时提示出错：“datacol”不是“rowcoleventargs”的成员。在table里找不到对应的行，所以出现了空白。像这种情况，该如何处理呢？

有点甜

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/6 16:22:00 [只看该作者]

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

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

rophy0952

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2014/11/6 16:41:00 [只看该作者]

哦，原来是这样啊，是不是要做修改日志的每个控件都要写入代码呢？代码是这样写吗？红色部分不知该如何写？谢谢

以下内容为程序代码:

1 If _username.Trim() = "陈碧霞" Then
2 Dim dr As DataRow = DataTables("成品检验记录表").SQLfind("流水号 = '"& forms("成品检验记录修改").Controls("流水号").value & "'and 检验员 = '"& forms("成品检验记录修改").Controls("检验员").value & "'")
3 If dr IsNot Nothing Then
4 dr("修改日志") &= iif(e.Row.IsNull("修改日志"), "", vbcrlf) & e.Col.Name & " " & oldvalue & " " & newvalue
5 End If
6 End If

有点甜

小大 25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/6 16:45:00 [只看该作者]

1、在enter事件记录旧值；

2、列名写死，新值用e.sender.text

rophy0952

小大 26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2014/11/6 17:33:00 [只看该作者]

我在valuechanged中录入代码：

If _username = "陈碧霞" Then

Dim dr As DataRow = DataTables("成品检验记录表").SQLfind("流水号 = '"& forms("成品检验记录修改").Controls("流水号").value & "'and 检验员 = '"& forms("成品检验记录修改").Controls("检验员").value & "'")

If dr IsNot Nothing Then

dr("修改日志") &= vbcrlf & "不良项目1_代号" & " " & vars("oldvalue") & " " & e.sender.value

End If

在enter中录入代码：

vars("oldvalue") = e.sender.value

最后“修改日志”的值还是空。不知是不是我的代码有问题呢？