请教大佬 - VFP论坛 - 编程论坛档案馆

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请教大佬

标题：请教大佬

只看楼主

lumen

等　级：新手上路
帖　子：21
专家分：5
注　册：2018-9-16
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：23

请教大佬

怎样能将每一个地块的相关内容保存到一个单独的excel

搜索更多相关主题的帖子: 内容　保存　 excel　

2018-09-16 10:56

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 2 楼

得分:0

要想解決問題
1　放上相關文件
2　具體要求要說清楚。
3　帖出最後要達到的效果圖

地块的标志是什么
地块的相关内容指的是什么

坚守VFP最后的阵地

2018-09-16 11:18

lumen

等　级：新手上路
帖　子：21
专家分：5
注　册：2018-9-16

第 3 楼

得分:0

回复 2楼 sdta

相关文件.zip (62.65 KB)

按字段地块号区分，每个地块单独成一个excel，相关内容是该行地块号为空的那几行记录

，谢谢大佬

2018-09-16 11:38

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 4 楼

得分:0

是所有字段内容，还是部分字段内容，如果是部分字段内容，请列出字段名

坚守VFP最后的阵地

2018-09-16 12:04

lumen

等　级：新手上路
帖　子：21
专家分：5
注　册：2018-9-16

第 5 楼

得分:0

回复 4楼 sdta

所有字段

2018-09-16 12:43

lumen

等　级：新手上路
帖　子：21
专家分：5
注　册：2018-9-16

第 6 楼

得分:0

回复 4楼 sdta

所有字段

2018-09-16 12:43

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 7 楼

得分:20

程序代码：

CLOSE DATABASES ALL 
SET SAFETY OFF
SELECT *,0000 标记 FROM 原文件 INTO TABLE Test
cDkh = ""
SCAN
    IF NOT EMPTY(地块号)
        REPLACE 标记 WITH VAL(地块号)
        cDkh = 地块号
    ELSE
        REPLACE 标记 WITH VAL(cDkh)
    ENDIF
ENDSCAN
SELECT 原文件
cZdm = ""
FOR nCnt = 1 TO AFIELDS(Azdm)
    cZdm = cZdm + "," + Azdm[nCnt, 1]
ENDFOR
cZdm = SUBSTR(cZdm, 2)
SELECT DISTINCT 标记 FROM Test INTO CURSOR T_dist
SCAN
    SELECT Test
    COPY TO ("标记" + PADL(T_dist.标记, 4, "0")) TYPE XL5 FIELDS &cZdm FOR 标记 = T_dist.标记
ENDSCAN
USE IN Test
ERASE Test.Dbf