程序代码:
* 方法二 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
坚守VFP最后的阵地