新年好！

这里我刚接触VFP有些命令还不是很明白。在这里遇到一个问题：

我有两个表 A 库存表：编号，名称描述，数量
                      1      aaaa     20
                      2      bbbb     50
                      3      cccc     10
                      4      dddd     30

           B 采购明细表：编号，名称描述，入库数量，批号
                          2     bbbb        20      210101
                          4     dddd        10      210102


我想通过采B购明细表的入库数量来更新A库存表当中的数量，索引是通过两个表中的编号字段
我想得到的表还是A库存表:编号，名称描述，数量
                         1      aaaa     20
                         2      bbbb     70
                         3      cccc     10
                         4      dddd     40
我用了update 命令但都不成功，求大咖们指点一二，在此表示感谢！！

上传相关文件

不同的VFP版本，使用的命令是不同的
针对UPDATE命令而言

[此贴子已经被作者于2021-2-10 17:15编辑过]

*不同版本的VFP通用代码
CLOSE DATABASES
USE 库存表 IN 0 ALIAS KCB
INDEX ON 编号 TAG BH
USE 采购明细表 IN 0 ALIAS CGMXB
SELECT CGMXB
SET RELATION TO 编号 INTO KCB
SCAN
    REPLACE 数量 WITH 数量 + CGMXB.入库数量 IN KCB
ENDSCAN
SET RELATION TO
SELECT KCB
SET ORDER TO
BROWSE

新年好！！谢谢版主了，解决了一部分问题，我运行程序是说找不到变量，也许是我表格的问题，在这两个表格中，A表中的编号字段名称和B表中编号字段名称不太一样，A表示原料编号，B表示编号！A 库存表：原料编号，名称描述，数量
                                 1      aaaa     20
                                 2      bbbb     50
                                 3      cccc     10
                                 4      dddd     30

           B 采购明细表：     编号， 名称描述， 入库数量，   批号
                                2     bbbb        20      210101
                                4     dddd        10      210102


我想通过采B购明细表的入库数量来更新A库存表当中的数量，索引是通过两个表中的编号字段

我想得到的表还是A库存表:原料编号，名称描述，数量
                           1      aaaa     20
                           2      bbbb     70
                           3      cccc     10
                           4      dddd     40

这个程序问题就出现在编号上，版主看看能不能改一下，再次表示感谢！，也祝版主新年快乐！牛年大吉！！！！

CLOSE DATABASES
USE 库存表 IN 0 ALIAS KCB
INDEX ON 编号 TAG BH
USE 采购明细表 IN 0 ALIAS CGMXB
SELECT CGMXB
SET RELATION TO 编号 INTO KCB
SCAN
    REPLACE 数量 WITH 数量 + CGMXB.入库数量 IN KCB
ENDSCAN
SET RELATION TO
SELECT KCB
SET ORDER TO
BROWSE

上传两个表的结构

CLOSE DATABASES
USE 库存表 IN 0 ALIAS KCB
INDEX ON 原料编号 TAG BH
USE 采购明细表 IN 0 ALIAS CGMXB
SELECT CGMXB
SET RELATION TO 编号 INTO KCB && 编号 字段必须与 原料编号 字段的宽度及类型相同
SCAN
    REPLACE 数量 WITH 数量 + CGMXB.入库数量 IN KCB
ENDSCAN
SET RELATION TO
SELECT KCB
SET ORDER TO
BROWSE

收到的鲜花

• peemm2000 于 2021-02-13 12:34 送鲜花  1朵   附言：新年快乐！！

谢谢版主了，完美解决！！！牛年大吉！幸福安康！！

不好意思，再增加一个问题，当我采购明细里采购了原料编号5，但库存表里没有这个原料，第一次采购，怎么把这个新采购的原料追加到库存表里？

谢谢！！！！

CLOSE DATABASES
USE 库存表 IN 0 ALIAS KCB
INDEX ON 原料编号 TAG BH
USE 采购明细表 IN 0 ALIAS CGMXB
SELECT CGMXB
SET RELATION TO 编号 INTO KCB
SCAN
    IF FOUND("KCB")
        REPLACE 数量 WITH 数量 + CGMXB.入库数量 IN KCB
    ELSE
        INSERT INTO KCB VALUES (CGMXB.编号, CGMXB.名称描述, CGMXB.数量)
    ENDIF
ENDSCAN
SET RELATION TO
SELECT KCB
SET ORDER TO
BROWSE