急!有关VFP联接的问题
boyqq 2003-10-23 07:36:22 use zdsz in 0
sele zdsz
priv pshjj
pshjj=''
scan for 表名="zk"
pshjj=pshjj+'zk.'+alltrim(zdsz.字段名)+","
endscan
pshjj=left(pshjj,len(pshjj)-1)
SELECT Zk.编号, Zk.类型, Zk.品名, Ddb.任务量 AS 数量,zk.主单位 as 单位,;
Zk.开单进价 as 进价, 1 as 记帐汇率, 100 as 优惠率,"采购订单" as 订单属性,ddb.工序否,ddb.订单与品名,&pshjj;
FROM hg!ddb LEFT OUTER JOIN tlcw!zk ;
on zk.编号=ddb.编号;
orde by ddb.订单与品名 WHERE Ddb.订单属性 = "订单工艺" .and. 上线否=.t. .and. 工序否=.f. into cursor one
brow
********************************************
sele sum(ddb.数量)-sum(ddb.入货量) as 在途数量,订单属性,上线否,完成否,编号,销售订单号 from ddb WHERE Ddb.订单属性 ="采购订单" group by 编号,销售订单号 into cursor two
select one.*,two.在途数量 as 在途数量,two.完成否 from one left outer join two on one.编号=two.编号.and.left(one.订单与品名,10)=two.销售订单号 into cursor four
********************************************
afield(four)
creat curs mlianch from array four
wag_dbf=dbf("four")
sele mlianch
appen from &wag_dbf
repl 完成否 with .t. for isnull(完成否)
repl 在途数量 with 0 for isnull(在途数量)
go top
use in zdsz
use in zk
use in ddb
急!我在得到 curosr four 的时候数据不正确,请大侠指教!