Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在集合中添加数组的问题，请前辈指点


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

主题：在集合中添加数组的问题，请前辈指点
帅哥哟，离线，有人找我吗？
ntangjr
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：23 积分：279 威望：0 精华：0 注册：2014/3/22 6:57:00 		在集合中添加数组的问题，请前辈指点  发帖心情 Post By：2014/4/12 9:59:00 [只看该作者]

Dim Arys As List(Of String())
Dim Ary(2) As String

ary(0) = "A"
ary(1) = "B"
Arys.Add(ary)

For Each ary In arys
    output.show(ary(0))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/12 10:01:00 [只看该作者]

Dim Arys As new List(Of String())
Dim Ary(2) As String

ary(0) = "A"
ary(1) = "B"
Arys.Add(ary)

For Each ary In arys
    output.show(ary(0))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
ntangjr
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：23 积分：279 威望：0 精华：0 注册：2014/3/22 6:57:00 		  发帖心情 Post By：2014/4/12 10:45:00 [只看该作者]


非常感谢Bin的回复，我还有一个新问题，请指教，下面的代码，为何Messagebox 两次的显示值都是 B，应该第一次 A，第二次 B 啊？


Dim Arys As New List(Of String())
Dim Ary(2) As String
Dim strLength As Integer = 2
ary(0) = "A"
ary(1) = "A"
Arys.Add(ary)
ary(0) = "B"
ary(1) = "B"
Arys.Add(ary)

For Each ary In arys
    Messagebox.show(ary(0))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/12 10:48:00 [只看该作者]

呵呵,这里就要说到编程底层的东西了. 解析可能只会让你迷茫.

Dim Arys As New List(Of String())
Dim Ary(2) As String
Dim Ary2(2) As String
Dim strLength As Integer = 2
ary(0) = "A"
ary(1) = "A"
Arys.Add(ary)
ary2(0) = "B"
ary2(1) = "B"
Arys.Add(ary2)

For Each ary In arys
    Messagebox.show(ary(0))
Next

改为这样即可.
 回到顶部
帅哥哟，离线，有人找我吗？
ntangjr
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：23 积分：279 威望：0 精华：0 注册：2014/3/22 6:57:00 		  发帖心情 Post By：2014/4/12 10:59:00 [只看该作者]

这段代码是我为了求助简化过的，我的目标是将选中的树节点，包括其父节点，父节点的父节点.... .... 放入一个集合，
是要用到循环的，如何解决？请指教 

Dim Arys As New List(Of String())
Dim Ary(2) As String

ary(0) = "A"
ary(1) = "A"
Arys.Insert(0,ary)
ary(0) = "B"
ary(1) = "B"
Arys.Add(ary)

For Each ary In arys
    Messagebox.show(ary(0))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/12 11:02:00 [只看该作者]

你直接说出你的需求,上例子.

 回到顶部
帅哥哟，离线，有人找我吗？
ntangjr
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：23 积分：279 威望：0 精华：0 注册：2014/3/22 6:57:00 		  发帖心情 Post By：2014/4/12 11:18:00 [只看该作者]

问题已经解决。

Dim Arys As New List(Of String)
Dim ary() As String
Dim str As String

str = "A" & "|" & "B"
Arys.Insert(0,str)
str = "C" & "|" & "D"
Arys.Add(str)

For Each str In arys
    ary = str.Split("|")
    Messagebox.show(ary(0))
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 4 次数据查询