请问：按同字段不同值导出为excel表格，会出现每次查询结果窗口需要逐个关闭，怎么取消窗口提示

yangdf 发布于 2022-11-23 15:21， 1116 次点击

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

只有本站会员才能查看附件，请登录

4 回复

yangdf2022-11-23 15:49

捞一捞

yangdf2022-11-23 15:50

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

csyx2022-11-24 08:38

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

yangdf2022-11-24 09:45

回复 4楼 csyx

测试非常好，十分感谢！