| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 655 人关注过本帖
标题:请教从行中取数问题
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:10 
程序代码:
* 方法二
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最后的阵地
2015-04-08 11:19
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
代码不是主要的,关键是掌握编写代码的方法,要多研究别人代码的特点,为己所用,举一凡三,大家给你的代码也不少了。

坚守VFP最后的阵地
2015-04-08 11:23
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:10 
改了一下组合的算法,应该可以适应选择任意列数的组合。
程序代码:
*
* 从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)
2015-04-08 15:07
快速回复:请教从行中取数问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028003 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved