主题：保留旧价格

老大，下午好！又要请教你了！

      表A某列某单元格的"单价"修改(添加、删减或修改）后，表B就会新增一行，并在新增行的某列单元格里把表A中修改后的数据自动引用过来，这样，价格多次变动后，新的价格会自动在新增行的单元格中增加，老的价格就都被保留了。

      顺便感谢上次狐爸给我代码，很好用，感谢至极！

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

首先谢谢2楼的帮助！

经尝试后有一疑问：此代码 是放在A表还是放在B表。

我这次不用关联。

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

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

狐爸：你好！问题补充一下。

表A某列某单元格的"单价"修改(添加、修改）后，表B就会新增一行，并在新增行的某列单元格里把表A中修改后的数据自动引用过来，这样，价格多次变动后，新的价格会自动多次在新增行的单元格中增加，老的价格就都被保留了。（补充：表A与表B都有相同的编码列，表A编码列与价格列新增内容的时候，表B会自动的同时在编码列与价格列中新增一行内容，若表A某已存在编码（03)只改变价格，那么表B也新增一行，同时会把编码03与新价格引过来），先谢谢了！

先看5楼，有问题再留言。

 非常感谢狐爸，刚才的代码很给力。中午您多吃点！

狐爸，今天中午给我的代码很好用，但衍生出了两个新问题，现请教：

1、单价列由 双精度型 改为 字符型后代码就出错，为什么，怎么办？2、如果我希望B表的多列有像单价列一样的功能（而不是 仅单价一列），你给我的代码该怎么修改？

谢谢狐爸！

1、单价当然应该是双精度型，怎么能够为字符型？数据类型是一切功能的基础，不能乱的。

2、这个问题，最好先系统看一下帮助文件中的开发指南下的《编程基础》和《foxtable编程》，先学习一下，你才能理解别人写的代码，才能做到举一反三。