我写了个代码来货物是否存在，并修改。但是实在是太长，不知道各位有什么好点子没
代码如下
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

晕

用逻辑变量(逻辑真)表示需要增加记录的地方，程序的最后判断这些逻辑变量然后实施增加。
不过我感觉你的程序存在问题，有点怪怪的。

[此贴子已经被作者于2006-8-31 21:18:19编辑过]

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备注
是初学者吧?可以这样写：
replace 分类 with txt分类,库存编号 with c,货物名称 with txt货物名称,规格型号 with txt规格型号,;
生产厂家 with txt生产厂家,计量单位 with txt计量单位,单价 with txt单价,库存数量 with txt入库数量,;
金额 with txt金额,备注 with edt备注

呵呵，我估计这段代码执行不了。因为txt分类、txt货物名称……只是文本框名称，不是文本框的值。

按照楼主的意思，只要找不到相应的分类、货物名称、生产厂家及规格型号的任意一个，就增加一个记录，那么以下几条语句就够了：
Locate For Allt(分类)<>Allt(ThisForm.txt分类.value) OR Allt(货物名称)<>Allt(ThisForm.txt名称.value)；
OR Allt(生产厂家)<>Allt(ThisForm.txt生产厂家.value) OR Allt(规格型号)<>Allt(ThisForm.txt规格型号.value)
IF EOF()
Append Blank
replace 分类 with ThisForm.txt分类.value,库存编号 with c,货物名称 with ThisFrom.txt货物名称.value……
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编辑过]