求助：如何将各列的A、B、B、D，形成新的一列1A2B1D，谢谢 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求助：如何将各列的A、B、B、D，形成新的一列1A2B1D，谢谢

标题：求助：如何将各列的A、B、B、D，形成新的一列1A2B1D，谢谢

只看楼主

vfpzrf2018

等　级：新手上路
帖　子：3
专家分：0
注　册：2018-7-5
结帖率：50%

楼主

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

求助：如何将各列的A、B、B、D，形成新的一列1A2B1D，谢谢

搜索更多相关主题的帖子: 一列　

2018-08-03 11:59

gs2536785678

等　级：贵宾
威　望：45
帖　子：565
专家分：1668
注　册：2017-7-16

第 2 楼

得分:10

发个图，说明白点。

2018-08-03 16:35

sdta

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

第 3 楼

得分:10

CREATE CURSOR cj (xh c(6),a1 c(1),a2 c(1),a3 c(1),a4 c(1),a5 c(1),a6 c(10))
INSERT INTO cj VALUES ("0001","A","A","C","D","B","")
INSERT INTO cj VALUES ("0002","A","B","A","B","D","")
SCAN
    cStr=ALLTRIM(a1-a2-a3-a4-a5)
    cStr1=""
    FOR i=1 TO 4 && 此处的4代表成绩等级ABCD
        n=OCCURS(CHR(64+i),cStr)
        cStr1=cStr1+IIF(n=0,"",TRANSFORM(n)+CHR(64+i))
    ENDFOR
    REPLACE a6 WITH cStr1
ENDSCAN
BROWSE

[此贴子已经被作者于2018-8-3 19:19编辑过]

坚守VFP最后的阵地

2018-08-03 19:16

vfpzrf2018

等　级：新手上路
帖　子：3
专家分：0
注　册：2018-7-5

第 4 楼

得分:0

谢谢

2018-08-16 10:04

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-489003-1-1.html