Foxtable(狐表)用户栏目专家坐堂 → [求助]嵌套循环


  共有3736人关注过本帖树形打印复制链接

主题:[求助]嵌套循环

帅哥哟,离线,有人找我吗?
aalons
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:372 积分:2548 威望:0 精华:0 注册:2013/6/6 6:20:00
[求助]嵌套循环  发帖心情 Post By:2014/7/21 8:51:00 [显示全部帖子]

C(i,j)=vlue

i最大为5,j最大为3
其中i,j为这样的组合:
     2,1
     3,1
     4,1
     5,1
然后
    2,2 
    3,2
    4,2
    5,2
最后
   2,3
   3,3
   4,3
   5,3
请问循环如何写?????

 回到顶部
帅哥哟,离线,有人找我吗?
aalons
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:372 积分:2548 威望:0 精华:0 注册:2013/6/6 6:20:00
  发帖心情 Post By:2014/7/21 11:26:00 [显示全部帖子]

do while 
  for next 
for each 

三者的级别如何?

 回到顶部
帅哥哟,离线,有人找我吗?
aalons
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:372 积分:2548 威望:0 精华:0 注册:2013/6/6 6:20:00
  发帖心情 Post By:2014/7/21 12:24:00 [显示全部帖子]

烦死  太笨了 写不出来  帮忙下  
dim i as integer 
dim j as integer 
dim ii as integer = 5
dim jj as integer
dim num as integer
'f为真的情况下开始
do while f = 1 
     num+ = 1 '计数,即f为真的次数
    for r as row in rs
for i as integer= num+1 to ii 
   for j as integer = 1 to jj
       c(i,j)=r(value)
   next
next
   each

loop

想要的效果是:当f为1时候,计数num为1,   则C(2,1)= , C(3,1)=,C(4,1)= ,C(5,1)=
                                   计数为num为2,则C(2,2)= , C(3,2)=,C(4,2)= ,C(5,2)=
                                  计数位num为3,则C(2,3)= , C(3,3)= ,C(4,3)=,  C(5,3)=
这里的FOR EACH 也同时需要循环,怎么写的?
不知道我说清楚了没?


 回到顶部
帅哥哟,离线,有人找我吗?
aalons
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:372 积分:2548 威望:0 精华:0 注册:2013/6/6 6:20:00
  发帖心情 Post By:2014/7/21 12:44:00 [显示全部帖子]

还没来,我顶上去

 回到顶部
帅哥哟,离线,有人找我吗?
aalons
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:372 积分:2548 威望:0 精华:0 注册:2013/6/6 6:20:00
  发帖心情 Post By:2014/7/21 13:07:00 [显示全部帖子]

再顶

 回到顶部
帅哥哟,离线,有人找我吗?
aalons
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:372 积分:2548 威望:0 精华:0 注册:2013/6/6 6:20:00
  发帖心情 Post By:2014/7/21 13:29:00 [显示全部帖子]



 回到顶部
帅哥哟,离线,有人找我吗?
aalons
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:372 积分:2548 威望:0 精华:0 注册:2013/6/6 6:20:00
  发帖心情 Post By:2014/7/21 14:25:00 [显示全部帖子]

就是填充表格


 回到顶部
帅哥哟,离线,有人找我吗?
aalons
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:372 积分:2548 威望:0 精华:0 注册:2013/6/6 6:20:00
  发帖心情 Post By:2014/7/21 14:31:00 [显示全部帖子]

表格Table1,按选择的行逐项填充到表Table2中
Dim rs2 As List(of Row) = Table1.GetCheckedRows
                  If  rs2.Count > 0 Then '如果存在符合条件的行

 回到顶部