我写了个代码来货物是否存在，并修改。但是实在是太长，不知道各位有什么好点子没
代码如下
LOCATE FOR 分类=txt分类
IF eof() then
appe blan
replace 分类 with txt分类
replace 库存编号 with c
replace 货物名称 with txt货物名称
replace 规格型号 with txt规格型号
replace 生产厂家 with txt生产厂家
replace 计量单位 with txt计量单位
replace 单价 with txt单价
replace 库存数量 with txt入库数量
replace 金额 with txt金额
replace 备注 with edt备注
else
LOCATE FOR 货物名称=txt货物名称
IF eof() then
appe blan
replace 分类 with txt分类
replace 库存编号 with c
replace 货物名称 with txt货物名称
replace 规格型号 with txt规格型号
replace 生产厂家 with txt生产厂家
replace 计量单位 with txt计量单位
replace 单价 with txt单价
replace 库存数量 with txt入库数量
replace 金额 with txt金额
replace 备注 with edt备注
else
LOCATE FOR 生产厂家=txt生产厂家
IF eof() then
appe blan
replace 分类 with txt分类
replace 库存编号 with c
replace 货物名称 with txt货物名称
replace 规格型号 with txt规格型号
replace 生产厂家 with txt生产厂家
replace 计量单位 with txt计量单位
replace 单价 with txt单价
replace 库存数量 with txt入库数量
replace 金额 with txt金额
replace 备注 with edt备注
else
LOCATE FOR 规格型号=txt规格型号
IF eof() then
appe blan
replace 分类 with txt分类
replace 库存编号 with c
replace 货物名称 with txt货物名称
replace 规格型号 with txt规格型号
replace 生产厂家 with txt生产厂家
replace 计量单位 with txt计量单位
replace 单价 with txt单价
replace 库存数量 with txt入库数量
replace 金额 with txt金额
replace 备注 with edt备注
else
replace 库存数量 with 库存数量+txt入库数量
ENDIF
ENDIF
ENDIF
ENDIF

谢谢楼上各位，我把啸凡的代码改了下用上了，我的“txt货物名称”不是名称是文本框的值

Locate For 分类=txt分类 and 货物名称=txt货物名称 and 生产厂家=txt生产厂家 and 规格型号=txt规格型号
IF eof()
appe blan
replace 分类 with txt分类,库存编号 with c,货物名称 with txt货物名称,规格型号 with txt规格型号,生产厂家 with txt生产厂家,计量单位 with txt计量单位,库存数量 with txt入库数量,备注 with edt备注
ELSE
replace 库存数量 with 库存数量+txt入库数量
endif

我还真不知道能这样用，没知识真可怕

[此贴子已经被作者于2006-9-1 16:09:07编辑过]