项目中  快速访问栏里 保存按钮的代码

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

图如下：

表A

此主题相关图片如下：1.jpg

表B

 
此主题相关图片如下：2.jpg

关联表

 
此主题相关图片如下：3.jpg

狐表的帮助中专门有这些内容，您应该多看帮助！

我研究过了  但是和我这个情况不一样！  程版你再仔细看下我的说明~  我不仅要记录操作人和操作时间  还要记录 操作了哪些列和内容

表A，DataColChanged事件代码：

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "最后联系日期","最后一次回访情况","备注"
        If e.NewValue <> e.OldValue Then
            Dim r As Row = Tables("表B").AddNew()
            r("编号") = dr("编号")
            r("意向级别") = dr("意向级别")
            r("建档日期") = dr("建档日期")
            r("最后联系日期") = dr("最后联系日期")
            r("最后一次回访情况") = dr("最后一次回访情况")
            r("备注") = dr("备注")
            r("操作记录") = User.Name & " 于 "  & Date.Now & " 修改了 [" & e.DataCol.Name & "] 修改前值为: " & e.OldValue
        End If
End Select

GAOYONG30000:

   你在做的项目于我的基本一致，有机会教刘一下;nsyprm123@163.com

多谢了 ~ 

那个 你有qq嘛