做成这样是输出格式用的吧
模拟了一下

USE k0110_6 ALIAS db IN 0
CALCULATE MAX(fz) TO n
CREATE CURSOR tt (c11 C(10),c1 C(10),c2 C(10),c3 C(10),c4 C(10),c5 C(10),c6 C(10),c7 C(10),c8 C(10))
FOR i=1 TO n*4
    APPEND BLANK
ENDFOR
FOR i=1 TO n
    REPLACE c11 WITH TRANSFORM(i) RECORD i*4-3
ENDFOR
SELECT db
SCAN FOR fz>0
    REPLACE ("c"+TRANSFORM(db.dc)) WITH db.name RECORD db.fz*4-3  IN "tt"
    REPLACE ("c"+TRANSFORM(db.dc)) WITH TRANSFORM(db.hm) RECORD db.fz*4-2  IN "tt"
    REPLACE ("c"+TRANSFORM(db.dc)) WITH db.dwjc RECORD db.fz*4-1  IN "tt"
ENDSCAN
SELECT * FROM tt

还有这样的数据，

[此贴子已经被作者于2018-8-15 12:45编辑过]

楼主的题意应该属于矩阵转置问题，参考：https://bbs.bccn.net/viewthread.php?tid=461355&extra=&highlight=%D0%FD%D7%AA&page=2

不是只有一个表，数据应该挺多的，只是形式是一样的，所以用代码输出更好些。

[此贴子已经被作者于2018-8-14 20:39编辑过]

楼主的问题还没有结束

变样了？这是另外一个问题吧
还有多少样子？都详细说说各单元格数据的摆放规则

Select Name, Hm, Dwjc From K0110_6 Order By Fz Where Fz = 1 Into Array gaArray  && 过滤条件：Fz = 1，2，3，，，，循环

Clear
? "原始数组："
R1 = Reccount()
=Matrix_Show(@gaArray)

? "============================"
? "转置数组："
=Matrix_Transpose(@gaArray, @R1)
=Matrix_Show(@R1)


Function Matrix_Show(A1)
    * 数组显示 - Display array data
    Local nRow, nCol

    For nRow = 1 To Alen( A1, 1 )
        ?
        For nCol = 1 To Alen( A1, 2 )
            ?? A1[ nRow, nCol ], " "
        Endfor
    Endfor
    ?
    Return
Endfunc


Function Matrix_Transpose(A1, R1)
    * 矩阵转置/对称矩阵 : 左上角-右下角翻转
    * 定义：如果A(I, J)=A(J, I)，则 A 是对称矩阵.
    Local nRow, nCol

    Dimension R1[Alen(A1, 2), Alen(A1, 1)]
    For nRow = 1 To Alen( A1, 1 )
        For nCol = 1 To Alen( A1, 2 )
            R1[nCol, nRow] = A1[nRow, nCol]
        Endfor
    Endfor
    Return
Endfunc

看似是按fz分组，按CEILING(dc/8)定行，按dc%8定列

就这两种数据，用两种代码分别输出可以吗

[此贴子已经被作者于2018-8-14 22:39编辑过]

CREATE CURSOR td (c11 C(10),c1 C(10),c2 C(10),c3 C(10),c4 C(10),c5 C(10),c6 C(10),c7 C(10),c8 C(10))
CREATE CURSOR tp (c11 C(10),c1 C(10),c2 C(10),c3 C(10),c4 C(10),c5 C(10),c6 C(10),c7 C(10),c8 C(10))
USE k0910_10 ALIAS db IN 0
CALCULATE MAX(fz) TO n IN "db"
FOR i=1 TO n
    SELECT dwjc,hm,name,fz,dc FROM db WHERE fz==i INTO CURSOR tmp
    SELECT tmp
    CALCULATE MAX(dc) TO m
    FOR j=1 TO CEILING(m/8)*3+1
        APPEND BLANK IN "tp"
    ENDFOR
    REPLACE tp.c11 WITH TRANSFORM(i) RECORD 1 IN "tp"
    SCAN
        nr = CEILING(dc/8)*3-2
        nc = dc%8
        nc = IIF(nc==0, 8, nc)
        REPLACE ("c"+TRANSFORM(nc)) WITH TRANSFORM(tmp.hm) RECORD nr IN "tp"
        REPLACE ("c"+TRANSFORM(nc)) WITH tmp.name RECORD nr+1 IN "tp"
        REPLACE ("c"+TRANSFORM(nc)) WITH tmp.dwjc RECORD nr+2 IN "tp"
    ENDSCAN
    INSERT INTO td SELECT * FROM tp
    SELECT tp
    ZAP
ENDFOR
SELECT * FROM td