主题：求助]关于表属性里的datacolchanged事件

事件里最下面 有这样一段代码

Select Case e.DataCol.name
    Case "当前里程","最后进店日期","底盘号"
        Dim yq As DataRow = e.DataRow
        If e.OldValue <> e.NewValue  AndAlso e.NewValue IsNot Nothing Then
            Dim lc As DataRow = DataTables("历史进店记录").AddNew()
            lc("当前里程") = yq("当前里程")
            lc("进店时间") = yq("最后进店日期")
            lc("底盘号")  = yq("底盘号")
        End If
End Select

有问题  我其实是想实现 这样的功能

如果在客户档案表里更改了 最后进店日期 和 当前里程数据 (这2项是必改的,底盘号不需要改)

则自动在 历史进店记录 里增加一行   且 引用客户档案里更改后的   最后进店日期  ，当前里程 和 未更改的底盘号

现在这段代码 只要更改一列数据 就会增加一行

而我每次要更改  最后进店日期  和 当前里程  2列数据  也就增加了2行

请问如何优化这一代码！！

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

点击浏览该文件:内控系统4.rar