VFP 愛用者社區

[布丁狗]

現有兩個表格, 內容分別是：

表格一:

採購訂單編號 行數 貨號 訂單數量 發票數量

TM01-H0057 001 A 100 未填
TM01-H0057 002 B 200 未填
TM01-H0057 003 C 300 未填
TM01-H0057 004 D 400 未填

表格二

採購發票編號 採購訂單編號 行數 貨號 發票數量

PI01-H0001 TM01-H0057 001 C 200
PI01-H0001 TM01-H0057 002 D 400

我想把表格二的發票數量更新到表格一的發票數量, 所以編寫了以下的程式碼:

USE 表格二 IN 1
INDEX on 採購訂單編號 tag a
USE 表格一 IN 2
INDEX on 採購訂單編號 tag b
SELECT 2
SCAN
select 表格二 seek 表格一.採購訂單編號 if found()
SELECT 表格一 REPLACE 表格一.發票數量 WITH 表格二.發票數量 endif
select 表格一
ENDSCAN
CLOSE all

不過表格一的結果是：

表格一

採購訂單編號 行數 貨號 訂單數量 發票數量

TM01-H0057 001 A 100 200
TM01-H0057 002 B 200 200
TM01-H0057 003 C 300 200
TM01-H0057 004 D 400 200

請問如何才做到以下的結果？

表格一

採購訂單編號 行數 貨號 訂單數量 發票數量

TM01-H0057 001 A 100 0
TM01-H0057 002 B 200 0
TM01-H0057 003 C 300 200
TM01-H0057 004 D 400 400

謝謝各位幫忙.

[ckp6250]

[LiuRambo]

USE 表格二 IN 1
INDEX on 採購訂單編號 tag a
USE 表格一 IN 2
INDEX on 採購訂單編號 tag b
SELECT 2
SCAN
　select 表格二
　　seek 表格一.採購訂單編號
　　if found()
　　　SELECT 表格一
　　　REPLACE 表格一.發票數量 WITH 表格二.發票數量
　　endif
　select 表格一 <==問題就在這裡 跟一開始啟動的TABLE不同一個
ENDSCAN
CLOSE all

看你的文還得重排版.......


養成好習慣 會使你自己減少掉很多抓BUG的時間
IF下一行就先放好
ENDIF

有SCAN 就要這樣
================
Select xxx
scan

select xxx
endscan


如果不懂
找台電腦去安裝.NET
試試看用裡面插入程式段的方法
你就會看到許多"有頭自動長出尾巴"

[richshih]

用INDEXSEEK() 就不用一下SELE 1 一下 SELE 2

[布丁狗]

謝謝各位的幫忙, 因為現在沒有地方學 VFP, 就算是書都只買到一本簡體, 唯有一路看書, 一路自已亂打亂撞, 所以請多多指教.

[heetee]

ckp6250那四行應可用
不行嗎???

[區榮熾]

[ckp6250]

可惜 VFP 沒有像 Mysql 的語法
不然，一行就搞定了

[區榮熾]

[ckp6250]

前端 cursor 操作，VFP 很強，一般 VB , C , Java 等等，根本比不上
後端的資料庫管理功能，VFP也比不上 Mysql 或 MsSql 或 Oracle 等等

所以，最好的方法是，
結合二者，VFP+資料庫
那個部份強的，就用那個部份