如一个数据表
xh dwmc a1 b1
1 A单位 12 23
2 B单位 65 54
3 C单位 65 87
。
。
。
将这个表按单位分成不同的数据表,如A单位.XLS,B单位.XLS,C单位.XLS

sele * from 数据表 where dwmc="A单位"
sele * from 数据表 where dwmc="B单位"
sele * from 数据表 where dwmc="C单位"

如果原表的 dwmc 记录很多，并且记录是不按顺序排列的，可试试：（不一定最简，但容易理解吧）
select dwmc from 原表名 into cursor bbb group by dwmc order by dwmc
do while.not.eof()
   cb=alltrim(dwmc)
   sele 原表名
   copy to &cb type xls for alltrim(dwmc)==cb
   sele bbb
   skip
 enddo


[ 本帖最后由 qingfameng 于 2010-8-9 00:57 编辑 ]

收到的鲜花

• smart921 于 2010-08-09 07:53 送鲜花  3朵  

3楼正解~

如果用 "dist ... into 数组" + "for/endfor" , 5句代码即可, 速度也更快~
 

版主的改进可取，谢谢

配合dist用scan 也可以

SELECT DISTINCT ALLTRIM(dwmc) AS dwmc,COUNT(*) AS rs GROUP BY 1FROM yssj WHERE NOT EMPTY(dwmc) INTO CURSOR tmp

SCAN
    lcdwmc = ALLTRIM(tmp.dwmc)
    lcTableName = "导出_" +lcdwmc+"_"+TRANSFORM(rs) +"条记录"  && 替换空格为下划线
    *导出dbf表
    SELECT * FROM yssj WHERE ALLTRIM(dwmc) == m.lcdwmc  INTO TABLE (m.lcTableName)
    *导出Excel表
    COPY TO  (lcTableName) TYPE XL5 FOR ALLTRIM(dwmc) == m.lcdwmc
ENDSCAN