主题：保留旧价格

If e.DataCol.Name = "单价" Then

dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.DataTable = DataTables("表B") '指定数据接收表
f.Filter="[编号]='" & e.DataRow("编号") & "'" 

f.Fill() '填充数据

end if

你的问题用二楼代码应该是最合试的了，你是想记录价格的历次变动情况，变动多少次就要在表B增加多少行的记录。

用填充是最好的办法了，有100列也是这几行代码。另建议增加一个修改时间列，记录价格修改的时间，代码改成这样：

If e.DataCol.Name = "单价" Then
e.DataRow("价格变动时间")=Date.now
Dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.DataTable = DataTables("表B") '指定数据接收表
f.Filter="[_Identify]='" & e.DataRow("_Identify") & "'"
f.Fill() '填充数据
End If

If e.DataCol.Name = "单价" or e.DataCol.Name = "型号" or e.DataCol.Name = "地址" Then

第一行代码改成这样，试试！