| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2164 人关注过本帖
标题:求数据组合代码
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9796
专家分:26886
注 册:2012-2-5
收藏
得分:0 
以下是引用fdqzy在2020-8-11 21:41:14的发言:

辛苦版主,有几个问题说明一下
1、元素中的a1,a2,c1,c2,等只是个顺序代号,不是具体元素名称,也可能代表78,99等数字或商品名称
2、每次从k1,k2,k3内所取元素的个数不一定是2,1,3;也可能是2,2,2或0,4,2.但总数是6
应该怎样解决、麻烦了!!

不要比如、可能之类,说出具体想做什么,我解决不了,还有别人能解决这个问题。

坚守VFP最后的阵地
2020-08-11 21:48
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9796
专家分:26886
注 册:2012-2-5
收藏
得分:0 
说错了,删除回帖内容

[此贴子已经被作者于2020-8-12 07:48编辑过]


坚守VFP最后的阵地
2020-08-11 21:51
fdqzy
Rank: 1
等 级:新手上路
帖 子:368
专家分:0
注 册:2016-8-15
收藏
得分:0 
回复 12楼 sdta
版主,能否在代码中使用数组序号,如a1用K1(1),b2用k2(2),这样就解决了通用名称的问题,可以这样吗?
2020-08-11 22:32
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9796
专家分:26886
注 册:2012-2-5
收藏
得分:2 
以下是引用fdqzy在2020-8-11 22:32:54的发言:

版主,能否在代码中使用数组序号,如a1用K1(1),b2用k2(2),这样就解决了通用名称的问题,可以这样吗?

我目前能想到的办法是:
LOCAL K1[3]
FOR lnj = 1 TO ALEN(K1)
    K1[lnj] = "a" + TRANSFORM(lnj)
ENDFOR
即使解决了通用名称,对你的问题帮助也不大。
我前面示例中的代码就有通用名称的解决方法。

坚守VFP最后的阵地
2020-08-11 22:42
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9796
专家分:26886
注 册:2012-2-5
收藏
得分:0 
具体情况不清楚,只能帮到这个程度。

坚守VFP最后的阵地
2020-08-11 22:43
fdqzy
Rank: 1
等 级:新手上路
帖 子:368
专家分:0
注 册:2016-8-15
收藏
得分:0 
回复 15楼 sdta
麻烦了,谢谢!
2020-08-11 23:03
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9796
专家分:26886
注 册:2012-2-5
收藏
得分:0 
重新看了这篇帖子,楼主的问题应该换个角度去考虑,三个数组共9个元素,从中任取6个元素组成从小到大的一条数据,那么共有 4*5*6*7*8*9/720 =84 种组合,那么用01 - 9 分别代表 6 个元素,生成了下面的表
图片附件: 游客没有浏览图片的权限,请 登录注册


数组K1(01-03),数组K2(04-05),数组K1(06-09)
使用时筛选符合条件的记录即可

坚守VFP最后的阵地
2021-03-08 22:11
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9796
专家分:26886
注 册:2012-2-5
收藏
得分:0 
那么用01 - 9 分别代表 6 个元素,
改为
那么用01 - 09 分别代表 9 个元素,

坚守VFP最后的阵地
2021-03-08 22:57
快速回复:求数据组合代码
数据加载中...
 
   



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

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