各位：
請教大家一個問題!
我有兩個表stock1,yl,表stock1包括字段：card_id,pariname,現時存倉,表yl中有job_no,model_no,barcode,需求量，追料數(此列為空)等字段，其中barcode=card_id。我要用yl表中的需求量(表中需求量為負數)+現時存倉才得出所欠物料，即追料數，這樣求追料數時，我必須同時更新stock1和yl表。比如0001的物料我需要1k,但現時存倉為0.5k，兩表更新後0001的物料現時存倉應為-0.5k,而在yl表中的追料數顯示為-0.5k(正數不用追料，負數需追料)，在yl表中的下一個記錄如還需要0001的物料0.5k，更新後我的0001物料現時存倉數應顯示-1k，在此記錄中的追料數應顯示為-0.5k,這樣依次下去，直到求完yl表中的所有記錄，用replace命令該怎樣實現呢，我做時表中記錄老是達不到我的要求!

在不同的工作区别打开这两个表，选择各自所在工作区更新各表的数据。十分简单，只要您有工作区的概念！（两表之间的字段计算在字段名字注意加上表名，并用点“.”连接起来）
题外话：您的关系逻辑存在问题，应该是需求量-库存＝追货量。仓库管理最基本的逻辑关系就是：期末数＝期初数＋本期增加数-本期减少数。从逻辑上讲，需求如果为负数，其意义就是库存比需求要多。

谢谢啸凡兄,我试下先!

sele 1
use yl.dbf
sele 2
use stock1.dbf
sele yl
goto top
do while not eof()
if yl.barcode=stock1.card_id
if stock1.現時存倉<0
replace yl.追料數 with yl.xql in yl
else
replace yl.追料數 with yl.xql+stock1.現時存倉 in yl
endif
sele stock1
replace stock1.現時存倉 with yl.xql+stock1.現時存倉 in stock1
endif
sele yl
skip
enddo
這樣做為什麼不行呢，請指點!程序運行沒錯誤，但數據不替換。

[此贴子已经被作者于2007-11-6 15:45:31编辑过]

不是sele y1 而是sele1 1

还是没明白工作区的概念!

baichuan兄，sele yl跟sele 1是一樣的吧，表都已經打開了,現在的問題是我的數據表不知為何更新不了?難道不能按我上面的方法求？

[此贴子已经被作者于2007-11-6 9:23:51编辑过]

修改了一下，大概这样吧
sele 1
use yl.dbf
sele 2
use stock1.dbf
sele yl
goto top
do while not eof()
lcID=barcode
SELECT STOCK1
GO TOP
LOCATE FOR CARD_ID=lcID
IF ! eof()
IF 現時存倉<0
SELECT YL
lnXQL=xql
replace yl.追料數 with yl.xql
else
lnSTORED=現時存倉
SELECT YL
replace yl.追料數 with yl.xql+lnSTORED
endif
sele stock1
replace stock1.現時存倉 with lnXQL+stock1.現時存倉 in stock1
ELSE
MASSAGEBOX('数据替换已完成',25,'提示信息')
sele yl
skip
ENDIF
enddo

嘯凡兄，按照你的方法我試了試，會產生死鎖，可能哪還有問題，我自己再慢慢弄弄，謝謝!

程序已經搞定，原來是skip放的位置不對，謝謝嘯凡兄!