set safe off
close table
use 0703bk
select *From 0703bk where yyt like '%x' order by 1 into dbf 0703yyt
select distinct yyt from 0703bk where yyt like '%x'into dbf 0703wufuting
use 0703wufuting
select dist ywname from 0703yyt into arra ywarr
i=0
sql_start="SELECT a.* "
sql_con="from wufuting a "
FOR EACH ooo IN ywarr
i=i+1
t_name="temp"+ALLTRIM(STR(i))
t_name_b="temp"+ALLTRIM(STR(i-1))
select * from 0703yyt where ywname=ooo into dbf tem
IF i=1 then
SELECT a.yyt ,tem.cnt as &ooo FROM 0703wufuting a LEFT OUTER JOIN tem ON a.yyt=tem.yyt INTO dbf &t_name
endif
IF i!=1 then
SELECT a.* ,b.cnt as &ooo from &t_name_b a LEFT OUTER JOIN tem b ON a.yyt=b.yyt INTO dbf &t_name
endif
ENDFOR
SELECT * from &t_name INTO CURSOR ppp
COPY TO 0703yyt.xls TYPE xls
