首先你在表2.10.0010.dbf里添加一个单价的字段
以材料代码建立索引
select 0
use 2.10.0010.dbf
set order to 材料代码
Select 0
Use mzk.dbf
select mzk
go top
do while not eof() pdm=alltrim(材料代码) pdj=alltrim(单价)
Select 2.10.0010.dbf
set key to pdm
repla all 单价 with pdj
select mzk
skip
enddo
运行的结果就是将所有mzk.dbf与2.10.0010.dbf材料代码匹配的数据单价写上去