VFP 愛用者社區

iddqd69 · 註冊時間: 2004-05-30 文章: 50 第 1 樓

X6=0
select 委外品檢總表
go top
do while .t.
if eof()
exit
endif

X6=X6+1

if 實交日期<ctod(alltrim(str(.X1.value))+"/"+alltrim(str (.X2.value));
+"/"+alltrim(str(day(date())))) and 檢驗完成=.t.
C1=alltrim(驗收單號)
C2=alltrim(委外單號)

select 委外單號 from 委外品檢總表 where alltrim(委外單號)==C2 into ;
cursor tempAS1

if alltrim(委外單號)==""
select 委外品檢總表
go top
skip X6-1
delete

select 備份委外品檢總表
append blank
repl 驗收單號 with C1
repl 委外單號 with C2
endif
endif

select 委外品檢總表
go top
skip X6
enddo

以上..在實交日期<某日期下..
如果"委外加工總表.委外單號"內無等於"委外品檢總表.委外單號"..
則進行備份..
但是我執行後卻沒依照我想的跑..
想請問一下各位大大..請幫我看哪邊出錯了..
謝謝..

bin1x · 註冊時間: 2004-08-27 文章: 462 第 2 樓

有點腦震盪的現象

朱育興 · 發表於: 星期二十二月 14, 2004 12:00 pm 文章主題:

沒看到委外加工總表，它在那裏有出現？

bin1x · 註冊時間: 2004-08-27 文章: 462 第 4 樓

golden_wubiao · 註冊時間: 2004-11-23 文章: 4 第 5 樓

提供一個思路：
select * from 委外加工表　where 委外加工單號　not　in(select * from 委外加工總表) into cursor tmpdbf　或into array m_tmp &&數據過濾

select 委外加工總表
append from tmpdbf　或 array m_tmp
另一添加方式：
insert into 委外加工總表 from array m_tmp

iddqd69 · 註冊時間: 2004-05-30 文章: 50 第 6 樓

謝謝各位的回覆..
那我試試別種方式好了..
不用土法鍊鋼法了..

elleryq · 註冊時間: 2007-06-21 文章: 768 第 7 樓

bin1x · 註冊時間: 2004-08-27 文章: 462 第 8 樓

iddqd69 · 註冊時間: 2004-05-30 文章: 50 第 9 樓