如何按照lb字段分别导出以gzgw字段中名称命名的dbf表 - 编程论坛

厨师王德榜2025-06-06 10:01

程序代码：

CLOSE TABLES ALL
SET SAFETY OFF

USE gwb
SELECT DISTINCT gzgw FROM gwb INTO ARRAY arr1
rec = 0
FOR EACH bm IN arr1
    outF = ALLTRIM(bm) + ".dbf"
    IF FILE(outF)
        DELETE FILE &outF
    ENDIF
    SELECT * FROM gwb WHERE gwb.gzgw = bm INTO CURSOR out1
    rec = RECCOUNT()
    COPY TO  &outF
    USE IN out1
    ? bm + "输出...完毕，记录条数：" + STR(rec)
NEXT
USE IN gwb
? "Done."

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

schtg2025-06-06 10:24

回复楼主反璞归真

试一试，这个意思吗？

程序代码：

select distinct lb,gzgw from gwb into cursor tt
select tt
go top
scan
   clb = lb
   cgzgw = gzgw
   select * from gwb where alltrim(lb)==alltrim(clb) into table (cgzgw)
endscan