项目中 快速访问栏里 保存按钮的代码
Dim g As New Filler
g.SourceTable = DataTables("表A") '指定数据来源
g.SourceCols = "编号,意向级别,建档日期,最后联系日期,最后一次回访情况,备注" '指定数据来源列
g.DataTable = DataTables("表B") '指定数据接收表
g.DataCols = "编号,意向级别,建档日期,最后联系日期,最后一次回访情况,备注" '指定数据接收列
g.ExcludeExistValue =True
g.ExcludeNullValue =False
g.Distinct =True
g.Append =True
g.Fill()
For Each dt As DataTable In DataTables
dt.save()
Next
表B用了这个代码后 可以记录历史变动的数据! 现在 在表B加了一 操作记录列 也就是想知道是谁修改了哪些列。例:A 于 2011-9-15 17:00 修改了 [最后一次回访情况]
最终的目的 是想利用表b做个关联,并查看其历史操作记录!
目前遇到的问题是如何记录历史操作记录~~??
项目如下:
密码均为 888
图如下:
表A
此主题相关图片如下:1.jpg

表B
此主题相关图片如下:2.jpg

关联表
此主题相关图片如下:3.jpg

[此贴子已经被作者于2011-9-15 17:35:38编辑过]