LOCAL cSbmc,cZlzb,cZlzblb,cHjl      &&  定义局部变量：源表名称，主栏指标，主栏指标列表（供查询用），合计列
LOCAL i,cI                          &&  定义局部变量：循环变量，i 的字符型量
cSbmc="b1"                      &&  输入源表名称

Select distinct ALLTRIM(eval(FIELD(2)));
   From &cSbmc;
   Into Array Arrblzb               && 到一维数组“宾栏指标”
   
nSzhs=Alen(Arrblzb,1)               && 返回一维数组的行数—即“宾栏指标”数

SELECT (cSbmc)
cZlzb=ALLTRIM(FIELD(1))
cZlzblb=cZlzb+" as "+cZlzb
cHjl=""                             && 合计列

FOR i =1 To nSzhs
    cI=TRANSFORM(i)                 &&  将 i 转换成字符
    cZlzblb=cZlzblb+","+"sum(IIF("+FIELD(2)+"=Arrblzb(&cI),"+FIELD(3)+",0.0000)) as &Arrblzb(i)"
    cHjl=cHjl+"+"+Arrblzb(i)
ENDFOR

cHjl=SUBSTR(cHjl,2)
cZlzblb=cZlzblb+" from "+cSbmc+" group by "+cZlzb

Select &cZlzblb  INTO TABLE bb
BROWSE nowait
RETURN


这段程序需要数据库1日期排在第一列


原帖地址：http://bbs.pfan.cn/post-252708.html

顶顶顶 支持一下谢谢楼主了，请继续努力 PPT模板下载http://www.2ppt.cn