主题：只填充当前行，而不是所有行。。。

好好看看：
http://www.foxtable.com/help/topics/0680.htm
http://www.foxtable.com/help/topics/2292.htm
http://www.foxtable.com/help/topics/2490.htm

http://www.foxtable.com/help/topics/1533.htm
 
你用Filler，就设置条件为当前行：
dim f As New Filler
f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列
f.Filter = "[_Identify] = " Tables("订单").Current("_Identify")
f.Fill() '填充数据

其实直接编码更好：

dim r as row = Tables("订单").Current
dim  dr As DataRow  = DataTables("统计表").Addnew
dr("产品") = r("产品")
dr("客户") = r("客户")

回头细致地按顺序看帮助文件学习，你的效率会提高n倍，因为第二个方法实在是很简单， 你不应该不会的。

你现在这样开发，需要专门找个人守在这里帮你写代码。

呵呵，也许我有点言重了，不过确实是为了你好。

有问题继续提，没关系