有dbf数据（图1），其中有ksh字段（ksh1字段为了看方便是后加的），想ksh字段用英文引号隔开每10个一组连接，效果如图2（只是效果，因为不会目前和dbf表实际数据不一致）

[此贴子已经被作者于2023-7-11 08:35编辑过]

* 水平有限，代码质量一般，仅供参考

Create Cursor zl(序号 C(10), 考号 C(200))

Local lcKh, lcId, n
lcKh = ""
lcId = ""
n = 0
Select sy
Scan
    n = n + 1
    If n = 1
        lcId = Alltrim(sy.xh)
        lcKh = Transform(sy.Ksh)
    Else 
        lcKh = lcKh + ";" + Transform(sy.Ksh)
        
        * 满十行插入一行到新表
        If n = 10
            n = 0    && 计数器归零
            lcId = lcId + " - " + Alltrim(sy.xh)
            Insert Into zl(序号, 考号) values(lcId, lcKh)
        EndIf 
    EndIf 
EndScan

* 收集最后漏掉的零头
If n > 0
    Go bottom &&这里要回到表的末尾，不然xh的值为空的，而不是最后一个
    lcId = lcId + " - " + Alltrim(sy.xh)
    Insert Into zl(序号, 考号) values(lcId, lcKh)
EndIf 

Select zl
Browse

[此贴子已经被作者于2023-7-11 09:24编辑过]

CLOSE DATABASES 

LOCAL xii,xstr,xxh
SELECT CAST(0 AS int) 序号,SPACE(8) 序号1,SPACE(200) 连接后 FROM sy WHERE 1=2 INTO CURSOR syout READWRITE 

xii = 0
xxh = ''
xstr = ''
SELECT sy
SCAN 
    IF EMPTY(xxh)
        xxh = alltrim(xh)+'-'
    ENDIF 

    xii = xii + 1 
    xstr = xstr + ';' + alltrim(ksh)
    IF xii=10 OR RECNO()=RECCOUNT()
        xxh = xxh + alltrim(xh)
        INSERT INTO syout (序号1,连接后) VALUES (xxh,SUBSTR(xstr,2))
        xii = 0
        xstr = ''
        xxh = ''
    ENDIF
ENDSCAN 
SELECT syout
REPLACE ALL 序号 WITH RECNO()

SELECT * FROM syout

如果按楼主图示，连接后字段内容最后有分号的话，是下面这段程序

CLOSE DATABASES 

LOCAL xii,xstr,xxh
SELECT CAST(0 AS int) 序号,SPACE(8) 序号1,SPACE(200) 连接后 FROM sy WHERE 1=2 INTO CURSOR syout READWRITE 

SELECT sy
GO TOP 
xii = 0
xxh = ''
xstr = ''
SELECT sy
SCAN 
    IF EMPTY(xxh)
        xxh = alltrim(xh)+'-'
    ENDIF 

    xii = xii + 1 
    xstr = xstr + alltrim(ksh) + ';' 
    IF xii=10 OR RECNO()=RECCOUNT()
        xxh = xxh + alltrim(xh)
        INSERT INTO syout (序号1,连接后) VALUES (xxh,xstr)
        xii = 0
        xstr = ''
        xxh = ''
    ENDIF
ENDSCAN 
SELECT syout
REPLACE ALL 序号 WITH RECNO()

SELECT * FROM syout

[此贴子已经被作者于2023-7-11 09:37编辑过]

IF xii=10 OR RECNO()=RECCOUNT()
版主这一行代码高呀

* 收集最后漏掉的零头
If n > 0
    Go bottom &&这里要回到表的末尾，不然xh的值为空的，而不是最后一个
    lcId = lcId + " - " + Alltrim(sy.xh)
    Insert Into zl(序号, 考号) values(lcId, lcKh)
EndIf

直接省掉了我后面的一这段

; 这是英文引号？

CLOSE DATABASES 
CREATE CURSOR test (xh c(4), xh1 c(10), ksh c(150))
USE sy IN 0
STORE 0 TO ln1, ln2
ln2 = ln1 + 1
lc = SPACE(0)
SELECT sy 
SCAN 
    lc = lc + "'" + ksh && 单引号分隔字段值
    ln1 = ln1 + 1
    IF MOD(ln1, 10) = 0 OR RECNO() = RECCOUNT()
        INSERT INTO test VALUES (PADL(CEILING(ln1/10), 4, '0'), PADL(ln2, 4, '0') + '-' + PADL(RECNO("sy"), 4, '0'), SUBSTR(lc, 2))
        lc = SPACE(0)
        ln2 = ln1 + 1
    ENDIF     
ENDSCAN
SELECT test
BROWSE 

不好意思，，说错了，需要用英文分号隔开

谢谢，学习了