姓名列转行
如附件，将表的姓名列转成行，姓名有很多行。想每20个姓名转成一行，且每个姓名之间加“，”英文逗号。如何实现？
 谢谢！！！
以前发过贴，现增加按单位分字段，求助！
附表，附原代码

CLOSE DATABASES
CREATE CURSOR tt (xh n(4), xm c(200))
USE 姓名列转行 IN 0 ALIAS xm
SELECT xm
lnR = 5 && 设置lnR人为一行
lcStr = ""
lnCnt = 0
SCAN
    lcStr = lcStr + "," + ALLTRIM(姓名)
    IF  RECNO() = RECCOUNT() OR RECNO() % lnR = 0
        lcStr = SUBSTR(lcStr, 2)
        lnCnt = lnCnt + 1
        INSERT INTO tt VALUES (lnCnt, lcStr)
        lcStr = ""
    ENDIF
ENDSCAN
SELECT tt
BROWSE
这是以前S大师写的代码

想在原基础上增加一个按单位分的字段。

谢谢
经测试运行后发现
一是：每行后面多一个“，”
二是：大于20人单位未分行。（单位有多于20人的，按20人一行）
麻烦问一下能做到吗？

非常感谢！完美！！！