程序代码：

* 方法二
Clear
Clear All
Num=7
lnCnt=0
Local Azh[35]
For lnI=1 To Num
    For lnJ=lnI+1 To Num
        For lnK=lnJ+1 To Num
            lnCnt=lnCnt+1
            Azh[lnCnt]="列"+Str(lnI,1)+",列"+Str(lnJ,1)+",列"+Str(lnK,1)
        EndFor
    EndFor
EndFor


create cursor 新表 (列1 n(9),列2 n(9),列3 n(9))
Use 原表 In 0
Select 原表
Scan
    For lnI=1 To Alen(Azh,1)
        Scatter Fields &Azh[lnI] To aa
        Insert Into 新表 From Array aa
    EndFor
EndScan
Select 新表
browse

程序代码：

*
* 从m个数中取出n个数的组合
*
FUNCTION _f(m, n, aa)
    LOCAL i, a[m], b[n]
    FOR i = 1 TO m
        a[i] = i
    ENDFOR
    _ff(@a, @b, n, 1, 1, @aa)
ENDFUNC

FUNCTION _ff(a, b, n, ai, bi, aa)
    LOCAL i
    IF (n == 0)        && n个数一组存放在b数组  
        LOCAL aaLen
        aaLen = IIF(!EMPTY(aa), ALEN(aa, 1) + 1, 1)
        DIMENSION aa[aaLen, bi-1]
        FOR i = 1 TO bi-1
            aa[aaLen, i] = b[i]
        ENDFOR
        RETURN
    ENDIF
    FOR i = ai TO ALEN(a)
        b[bi] = a[i]
        _ff(@a, @b, n-1, i+1, bi+1, @aa)
    ENDFOR
ENDFUNC

请教.rar (3.04 KB)