个人觉得：
制作报表我建议还是将统计结果粘贴到word或者excel当中去制作好一些
毕竟你统计出来的东西不是定列数的 用VFP只是一个过渡工具
有更好的排版软件为什么不用呢？
当然你如果只要个结果可以直接输出到打印机就OK了

好久没来了，又长见识了

按纸形设置一个可以打印最多列的报表，然后在打印条件中按实际需要设置打印前几列。

可以试试用COPY STRUCTURE EXTENDED和 CREATE FROM 这两个命令来处理不同列数的统计
其中在COPY STRUCTURE EXTENDED 命令所创建的新表,可以将南瓜；冬瓜。。等类似添加“记录”一样添加到新表中。
CREATE FROM 命令所创建的新表，将南瓜；冬瓜。。等又转换成字段名

楼上的想法 我也用过的
一般没有问题
但是遇到南瓜 西瓜这个数列出现“51号玉米”“920农药”等带数字开头的会遇到麻烦的
还有遇到有空栏的话也麻烦

CREATE CURSOR HW (单位 C(10),物类别 C(10),到货时间 C(10))
CSTR=[东山村,南瓜,20110701;西山村,冬瓜,20110701;南山村,西瓜,20110701;北山村,木瓜,20110702;李家村,丝瓜,20110702;王家村,南瓜,20110702;]+;
[南山村,冬瓜,20110702;北山村,西瓜,20110702;李家村,木瓜,20110702;南山村,丝瓜,20110702;北山村,香瓜,20110703;李家村,哈蜜瓜,20110703;]+;
[王家村,南瓜,20110703;南山村,冬瓜,20110703;北山村,西瓜,20110703;李家村,蚕豆,20110703;南山村,大豆,20110703]

FOR I=1 TO ALINES(ASZ,CHRTRAN(CSTR,[;],CHR(13)+CHR(10)))
    =ALINES(ASX,CHRTRAN(ASZ[I],[,],CHR(13)+CHR(10)))
    INSERT INTO HW FROM ARRAY ASX
ENDFOR
SELECT DISTINCT 物类别 FROM HW INTO CURSOR WLB
CSQL=[SELECT 单位]
SCAN
   CSQL=CSQL+[,CAST(SUM(IIF(ALLTRIM(物类别)==']+ALLTRIM(物类别)+[',1,0)) AS N(6)) AS ]+ALLTRIM(物类别)+IIF(RECNO()<RECCOUNT(),[],[ FROM HW GROUP BY 1 INTO CURSOR T])
ENDSCAN
MESSAGEBOX(CSQL,64,[生成代码提示])
EXECSCRIPT(CSQL)
BROWSE

此类问题是典型的父子表关联问题
INDEX + SET RELATION