- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助：如何在表A中的备注列里显示当前行所有数据操作的日志记录呢？帮助里实现的效果只有最后一次记录，现在想实现多条操作记录！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53190)
-- 发布时间：2014/7/2 1:17:00
-- 求助：如何在表A中的备注列里显示当前行所有数据操作的日志记录呢？帮助里实现的效果只有最后一次记录，现在想实现多条操作记录！
求助：如何在表A中的备注列里显示当前行所有数据操作的日志记录呢？帮助里实现的效果只有最后一次记录，现在想实现多条操作记录！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生成一个记录所有数据操作的记录日志.table |
此主题相关图片如下：qq图片20140702011128.jpg
拟显示：某某操作人 在某个时间 操作了某个表名中 某个列 中的值 并修改成了某某新值
-- 发布时间：2014/7/2 8:38:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:生成一个记录所有数据操作的记录日志.table |
-- 发布时间：2014/7/2 9:25:00
-- 回复：（Bin）.[upload=table,生成一个记录所有数据操...
谢谢BIN老师 我再琢磨一下删除和新增看看是否产生新增和删除日志记录 到时候若有问题还要再次麻烦BIN老师哦
-- 发布时间：2014/7/2 9:26:00
--
在对应的事件也写上类似的代码即可.
-- 发布时间：2014/7/2 22:55:00
-- 回复：（Bin）在对应的事件也写上类似的代码即可.
BIN老师 这个删除操作我这样写 但是没有效果
Dim dr As DataRow = DataTables("数据操作日志").AddNew()
dr("ID") = e.DataRow("_Identify")
dr("用户") = User.Name
dr("操作") = "删除档案(" & Tables("表A").Current("ID") & ")" 【如果将Tables("表A")换成动态获取表名怎么操作呢】
dr("时间") = Date.Now()
dr("涉及表") = e.DataTable.Name
dr("涉及列") = e.DataCol.Name
dr("涉及行") = e.DataRow("_Identify")
Tables("表A").Current.Delete
DataTables("表A").Save()
新增操作我这样写 也是没有效果
Tables("表A").AddNew()
Dim dr As DataRow = DataTables("数据操作日志").AddNew()
dr("ID") = e.DataRow("_Identify")
dr("用户") = User.Name
dr("操作") = "新增客户档案"
dr("时间") = Date.Now()
dr("涉及表") = e.DataTable.Name
[此贴子已经被作者于2014-7-2 22:57:26编辑过]
-- 发布时间：2014/7/2 23:11:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生成一个记录所有数据操作的记录日志(1).rar |
-- 发布时间：2014/7/30 3:35:00
--
请教 Bin 和 有点甜，如果只需要记录 表A 第二列 、第三列 、第四列 和 表B 第五列 第六列 的修改记录，在 6楼 源文件上需要做那些修改呢？
谢谢！！！
[此贴子已经被作者于2014-7-30 3:36:59编辑过]
-- 发布时间：2014/7/30 3:36:00
--
要是狐爸把 操作记录 开发成狐表的一种新功能就好了。
[此贴子已经被作者于2014-7-30 3:39:11编辑过]
-- 发布时间：2015/5/25 20:36:00
--
看看
-- 发布时间：2015/5/25 20:39:00
--
下载后打不开，看不到代码