set safety off
close all
local bmc
select xqdm,count(*) rs from cj.dbf group by xqdm into cursor xx
select xx
scan
    bmc = alltrim(xqdm)+"-"+transform(rs)+"条数据"
*    select * from cj.dbf where alltrim(cj.xqdm) == alltrim(xx.xqdm)   into table &bmc
     select * from cj.dbf where alltrim(cj.xqdm) == alltrim(xx.xqdm)
     copy to &bmc type xl5
endscan
close all

捞一捞

有时几十个查询结果窗口需要逐一手动关闭，急求解决办法。

...
scan
    ...
    select * from cj.dbf where alltrim(cj.xqdm) == alltrim(xx.xqdm) INTO CURSOR TEMP
    copy to &bmc type xl5
    USE IN TEMP
endscan
...

测试非常好，十分感谢！