從dBASE到FoxPro/VFP，都有一個叫結構表的東西，是直接從表生成表結構的，這個表的結構是固定的，每一行就是目標表的字段描述，像普通填寫數據表那樣填好記錄，用它生成目標表就可以了。

[此贴子已经被作者于2016-1-29 17:56编辑过]

楼主的这个问题，在制作运动员秩序册时，是经常要用到：就是将同一项目比赛的运动员随机分组（跑道）处理。

*!*    列向转横向排列

Clear
Close Databases
Local nRow, nCol

Use Xsxx
nCol = 12  && 假设有 12 列
nRow = Ceiling(Reccount() / nCol)
Dimension A1[nRow, nCol]
For nRow = 1 To Alen( A1, 1 )
    For nCol = 1 To Alen( A1, 2 )
        If Eof()
            A1[nRow, nCol] = Space(6)
        Else
            A1[nRow, nCol] = Name
            Skip
        Endif
    Endfor
Endfor
*!*    Matrix_Show(@A1)

lcField = ""
For I = 1 To nCol
    lcField = lcField + "Name" + Transform(I) + " C(10), "
Endfor
lcField = Left(lcField, Len(lcField) - 2)

Create Cursor MyTest (&lcField )
Append From Array A1
Go Top
Browse Last

代码行云流水