按照gwb中的lb字段一次性分别生成以gzgw字段中名称命名的dbf表，如图。希望大师们给以帮助，谢谢

[此贴子已经被作者于2025-6-6 07:40编辑过]

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."

试一试，这个意思吗？

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