vfp中如何在数据表中精确查找到所要的记录

[cooldady]

原料.dbf中有 记录1(货物名称:棕色B 数量:12)记录2(货物名称:棕色 数量:25),
use 原料
go top
locate for 货物名称="棕色"
if found()
repl 数量 with 数量+10
endif
其结果是把记录1的数量改成：22
而不是把记录2的数量改成：35
请教高手，如何精确查找到所需要的记录？

[lygcw9602]

use 原料 repl 数量 with 数量+10 for ALLTRIM(货物名称)=="棕色" 试试

[cooldady]

use 原材料.dbf go top locate for 货物名称=alltrim(thisform.txt货物名称.value) if .not. found() append blank repl 原材料.货物名称 with alltrim(thisform.txt货物名称.value) repl 原材料.规格 with alltrim(thisform.txt规格.value) repl 原材料.单位 with alltrim(thisform.txt单位.value) repl 原材料.数量 with val(alltrim(thisform.txt数量.value)) messagebox(货物名称+"已成功新增到原料库!") else repl 原材料.数量 with 原材料.数量+val(alltrim(thisform.txt数量.value)) messagebox(货物名称+"已成功添加到原料库!") endif 这是我的原程序,因为货物名称是由操作员输入的，有可能是新增的，假设棕色，在原材料中没有，需要添加，怎么办？

[cooldady]

use 原材料.dbf go top locate for alltrim(货物名称)==alltrim(thisform.txt货物名称.value) /*只改此句就OK*/ if .not. found() append blank repl 原材料.货物名称 with alltrim(thisform.txt货物名称.value) repl 原材料.规格 with alltrim(thisform.txt规格.value) repl 原材料.单位 with alltrim(thisform.txt单位.value) repl 原材料.数量 with val(alltrim(thisform.txt数量.value)) messagebox(货物名称+"已成功新增到原料库!") else repl 原材料.数量 with 原材料.数量+val(alltrim(thisform.txt数量.value)) messagebox(货物名称+"已成功添加到原料库!") endif 谢谢提醒 ，真正的高手,一句话就解决了。

[lygcw9602]

你的代码可以这么写：

SELECT * FROM 原材料 WHERE alltrim(货物名称)==alltrim(thisform.txt货物名称.value) INTO CURSOR T && 该条代码的意思是：是否有输入的颜色的商品
IF _TALLY=0 &&如果没找到输入的颜色的商品，则添加记录
   INSERT INTO 原材料 (货物名称,规格,单位,数量) VALUES (alltrim(thisform.txt货物名称.value),alltrim(thisform.txt规格.value),alltrim(thisform.txt单位.value),val(thisform.txt数量.value))
ELSE
   UPDATE 原材料 SET 数量 with 数量+val(thisform.txt数量.value) WHERE alltrim(货物名称)==alltrim(thisform.txt货物名称.value)
   messagebox(货物名称+"已成功添加到原料库!")
ENDIF

[lygcw9602]

这行代码有误： UPDATE 原材料 SET 数量 with 数量+val(thisform.txt数量.value) WHERE alltrim(货物名称)==alltrim(thisform.txt货物名称.value) 改为 UPDATE 原材料 SET 数量=数量+val(thisform.txt数量.value) WHERE alltrim(货物名称)==alltrim(thisform.txt货物名称.value)

[lzw_0736]

use 原料 go top locate for 货物名称="棕色 "&&棕色後面加一個空格 if found() repl 数量 with 数量+10 endif

[十豆三]

货物名称="棕色" 改为 Alltrim(货物名称)=="棕色"

[十月鹰飞]

update a set 数量=数量+10 where alltrim(货物名称)=="粽色"