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

表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