项目中 快速访问栏里 保存按钮的代码
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编辑过]
加好友 
发短信
Post By：2011/9/15 17:26:00 [只看该作者]
