这个copy to &xfilename type xl5复制出来的文件只能是2003以上的版本才可以的，谢谢！！
回复 20楼 laowan001
我上传主表，请帮助调试一下，
主表.rar
(878 Bytes)
2022-01-05 11:07
2022-01-05 11:28
2022-01-05 11:57
2022-01-05 13:52
2022-01-05 14:26
2022-01-05 14:29
2022-01-05 14:31
程序代码：
CLOSE DATABASES
local outfile,xoutlist,xfile,xfilename
outfile = sys(2015)
SELECT 工单号,维修类型,领料人,代码 项目,零部件名称 说明,SUM(零部件数量) 数量,销售单价 含税单价,仓库代码 仓库名称 ;
FROM 主表 GROUP BY 工单号,维修类型,领料人,代码,零部件名称,销售单价,仓库代码 HAVING SUM(零部件数量)>0 INTO CURSOR &outfile READWRITE
xoutlist = sys(2015)
select distinct 工单号,维修类型,领料人 from &outfile into cursor &xoutlist readwrite
select &xoutlist
scan && 导出每一个工作表
xfile = sys(2015)
select * from &outfile where 工单号=&xoutlist..工单号 and 维修类型=&xoutlist..维修类型 and 领料人=&xoutlist..领料人 ;
into cursor &xfile readwrite && 查询一个工作表的数据，根据需要保留或添加必要的字段
xfilename = alltrim(工单号)+alltrim(维修类型)+alltrim(领料人)
select &xfile
copy to &xfilename type xl5
use in &xfile
select &xoutlist
ends
use in &xoutlist
2022-01-05 14:41
程序代码：
CLOSE DATABASES
local outfile,xoutlist,xfile,xfilename
outfile = sys(2015)
SELECT 工单号,维修类型,领料人,代码 项目,零部件名称 说明,SUM(零部件数量) 数量,销售单价 含税单价,仓库代码 仓库名称 ;
FROM 主表 GROUP BY 工单号,维修类型,领料人,代码,零部件名称,销售单价,仓库代码 HAVING SUM(零部件数量)>0 INTO CURSOR &outfile READWRITE
xoutlist = sys(2015)
select distinct 工单号,维修类型,领料人 from &outfile into cursor &xoutlist readwrite
select &xoutlist
scan && 导出每一个工作表
xfilename = alltrim(工单号)+alltrim(维修类型)+alltrim(领料人)
xfile = sys(2015)
select SPACE(2) 行,SPACE(2) T,项目,说明,SPACE(2) 套餐,SPACE(2) W,数量,含税单价,SPACE(2) 折扣,SPACE(2) 总计,SPACE(2) V,SPACE(2) P,SPACE(2) I,仓库名称 ;
from &outfile where 工单号=&xoutlist..工单号 and 维修类型=&xoutlist..维修类型 and 领料人=&xoutlist..领料人 ;
into cursor &xfile readwrite && 查询一个工作表的数据，根据需要保留或添加必要的字段
select &xfile
copy to &xfilename type xl5
use in &xfile
select &xoutlist
ends
use in &xoutlist
2022-01-05 14:48
2022-01-05 15:39