主题：(有挑战性)这个项目例子中遇到的问题！记录历史操作~~

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

 

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嘛