样表
请教老师们一个问题，查新实现多个分组 谢谢
表1
重点企业    单位名称    行业    13年收入    14年收入    14年支出    13年支出
0            a            制药      10        12            9         9
0            b            食品      11        13            8         7
1            c            工业      13        19            6         4
0            d            工业      18        21            11        10
1            e            房地产    70        69            30        40

查询结果在DBF中 实现多个分组
结果如表2 DBF格式
           数量    13年收入    14年收入    14年支出    13年支出
全部企业    5        122        134           64            70
重点企业    2        83         88            36            44
工业企业    2        31         40            17            14
工业重点    1        13         19            6              4   

或者

   
数量    13年收入    14年收入    14年支出    13年支出
    5        122        134           64            70
   2         83         88            36            44
   2         31         40            17            14
    1        13         19            6              4              

[ 本帖最后由 baochenbc 于 2015-1-15 07:15 编辑 ]

想法：
1、清空表2
2、遍历表1
    scan
       go 1 in "表2"
       replace 表2.数量 with 表2.数量 + 1, 表2.13年收入 with 表2.13年收入 + 表1.13年收入...... in "表2"
       if 表1.重点企业 == "1"
            go 2 in "表2"
        replace 表2.数量 with 表2.数量 + 1, 表2.13年收入 with 表2.13年收入 + 表1.13年收入...... in "表2"
       endif
       if 表1.行业 == "工业"
            go 3 in "表2"
        replace 表2.数量 with 表2.数量 + 1, 表2.13年收入 with 表2.13年收入 + 表1.13年收入...... in "表2"
       endif
       if 表1.重点企业 == "1" and 表1.行业 == "工业"
            go 4 in "表2"
        replace 表2.数量 with 表2.数量 + 1, 表2.13年收入 with 表2.13年收入 + 表1.13年收入...... in "表2"
       endif
    endscan

SELECT 1 序号,'全部企业' 项目,COUNT(*) 数量,SUM(q年收入) q年收入,SUM(j年收入) j年收入,SUM(q年支出) q年支出,SUM(j年支出) j年支出 FROM _1771590 ;
UNION ;
SELECT 2 序号,'重点企业' 项目,COUNT(*) 数量,SUM(q年收入) q年收入,SUM(j年收入) j年收入,SUM(q年支出) q年支出,SUM(j年支出) j年支出 FROM _1771590 WHERE 重点企业=1;
UNION ;
SELECT 3 序号,'工业企业' 项目,COUNT(*) 数量,SUM(q年收入) q年收入,SUM(j年收入) j年收入,SUM(q年支出) q年支出,SUM(j年支出) j年支出 FROM _1771590 WHERE 行业='工业 ';
UNION ;
SELECT 4 序号,'工业重点' 项目,COUNT(*) 数量,SUM(q年收入) q年收入,SUM(j年收入) j年收入,SUM(q年支出) q年支出,SUM(j年支出) j年支出 FROM _1771590 WHERE 行业='工业 ' AND 重点企业=1

SELECT coun(*) 数量,SUM(Q年收入) Q年收入,SUM(J年收入) J年收入,SUM(Q年支出) Q年支出,SUM(J年支出) J年支出 FROM _1771590 ;
union SELECT coun(*) 数量,SUM(Q年收入) Q年收入,SUM(J年收入) J年收入,SUM(Q年支出) Q年支出,SUM(J年支出) J年支出 FROM _1771590 where 重点企业=1 ;
union SELECT coun(*) 数量,SUM(Q年收入) Q年收入,SUM(J年收入) J年收入,SUM(Q年支出) Q年支出,SUM(J年支出) J年支出 FROM _1771590 where 行业="工业" ;
union SELECT coun(*) 数量,SUM(Q年收入) Q年收入,SUM(J年收入) J年收入,SUM(Q年支出) Q年支出,SUM(J年支出) J年支出 FROM _1771590 where 重点企业=1 AND 行业="工业"  ORDER BY 数量 desc

谢谢你 还是用selecet 语句简单点，谢谢您的回复了

回复，谢谢您

谢谢您了 这两次您帮我很大忙。请问 selecet union 在表设计器中怎么操作加入 还是只有在命令中使用。

表单中的command按钮中

还有个问题 我写的select +union连接 有 20行  在复制到 prg里 运行时显示 行太长 怎么办

可以用分段运行：
比如:sqlcmd='select a,b,c,d'
     sqlcmd=sqlcmd+' from e where <条件>'
这样应该可以，你试试