vf中数据计算

今天遇到一道更新表中数据的题，是根据表2的数据来更新表1的总金额字段的值。表1的字段为（订单号，客户号，订单日期，总金额）表2的字段（订单号，器件号，器件名，单价，数量）题目的意思是要根据表2的数据计算每一订单号的总金额，然后更新表1的总金额。可是在表2中，一个订单号会因为器件号的不同出现几次，我就是不知道这样的题该如何来计算总金额。
请哪位同仁帮下忙解答下，谢谢。

*参考我的程序
close all data
set talk off
set exac on
use 表1
sele 2
use 表2
for i=1 to recc()
sele 2
goto i
hm=allt(订单号)
sele 1
sum all for hm=allt(订单号) 单位*数量 to zje
sele 2
repl 总金额 with zje
endfor
close all data
set talk on

语句这样写：(假设表文件名为销售，有"销售日期"这个字段)

select * from 销售 where 销售日期<={^2000-12-31} into table 2001