可以安心过年了哦。过年开心快乐！

新表中加了　总分（ZF）是为了检验用的

好！

不就是EXCEL中的数据透视表么。

多谢wengjl！

CLOSE DATABASES ALL 
SELECT DISTINCT km FROM xxcx INTO ARRAY ajg
* 生成动态表结构 [color=#808080]*[/color]
cZdm = "Id C(8)"
FOR nCnt = 1 TO ALEN(ajg, 1)
    cZdm = cZdm + "," + SUBSTR(ajg[nCnt], 3) - LEFT(ajg[nCnt], 2) + "N(8)"
ENDFOR
* 创建临时统计表，并向临时统计表中追加 Id 数据及创建索引 [color=#808080]*[/color]
CREATE CURSOR tjb (&cZdm)
INSERT INTO tjb (Id) SELECT DISTINCT Id FROM xxcx
INDEX ON Id TAG Id
* 向临时统计表中增加数据 [color=#808080]*[/color]
SELECT xxcx
SET RELATION TO Id INTO tjb
SCAN
    REPLACE (ALLTRIM(SUBSTR(xxcx.Km, 3)) + LEFT(xxcx.Km, 2)) WITH xxcx.cj IN tjb
ENDSCAN 
SET RELATION TO
* 浏览临时统计表 [color=#808080]*[/color]
SELECT tjb
SET ORDER TO 
BROWSE 

统计结果

学习，谢谢！

这个程序是我写的通用型数据应用软件中的一个过程，用于将多条记录首尾相接连接成一行，或纵向合并成一条记录。每个分类的记录行数（如ID002有3行，ID004有4行，ID005有6行）可以不一样，并且可以根据需要将连接过的源库记录搬移到另外一库中。只要打开数据表，运行kjldzlj2，根据运行姿态选择参数，即可得到想要的结果。

[此贴子已经被作者于2019-2-3 08:00编辑过]

过年了，发个玩玩。
**
SET SAFETY OFF
CLOSE TABLES all

SELECT distinct km  FROM xxcx INTO CURSOR mpmp ORDER BY km READWRITE
alter table mpmp add zdmc c(10)
SELECT mpmp
REPLACE zdmc WITH SUBSTR(km,3) all
IF USED('xscj')
    USE IN xscj
endif
SELECT distinct id FROM xxcx INTO dbf  xscj  ORDER BY id
ALTER table  xscj ADD 补考数 n (1,0)
ALTER table  xscj ADD 参试科数 n (1,0)
FOR i =1 TO RECCOUNT("mpmp")
    SELECT mpmp
    GO i
    _zdmc=ALLTRIM(zdmc)
    ALTER table xscj ADD (_zdmc) n (3,0)
ENDFOR
SELECT xscj
GO top
DO WHILE !EOF()
    _id=ALLTRIM(id)
    SELECT SUBSTR(km,3) as km,cj,IIF(hg='不合格',1,0) as 补考数 FROM xxcx INTO CURSOR cjmp WHERE ALLTRIM(id)==_id
    FOR i=1 TO RECCOUNT('cjmp')
        SELECT cjmp
        GO i
        _zdmc=ALLTRIM(km)
        _cj=cj
        _bk=补考数
        SELECT xscj
        REPLACE (_zdmc) WITH _cj,补考数 WITH 补考数+_bk
    ENDFOR   
    REPLACE 参试科数 WITH RECCOUNT('cjmp')
    SELECT xscj
    skip
ENDDO