Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请字典代码


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

主题：请字典代码
帅哥哟，离线，有人找我吗？
hbhb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		请字典代码  发帖心情 Post By：2014/7/27 22:48:00 [只看该作者]

甜大师：您好！下面的代码为何不对？

vars.add("a",Gettype( Dictionary(Of Integer, List (of String))))
vars("a") = new Dictionary(Of Integer, List (of String))

vars("a").add(0,"b")
vars("a")(0) = new List (of String)

vars("a")(0).add("人民")
Output.Show(vars("a")(0)(0))
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/27 22:51:00 [只看该作者]

vars.add("a",Gettype( Dictionary(Of Integer, List (of String))))
vars("a") = new Dictionary(Of Integer, List (of String))


vars("a").add(0, new List (of String))


vars("a")(0).add("人民")
Output.Show(vars("a")(0)(0))
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/7/27 23:18:00 [只看该作者]

zd.Add(1,"苹果")
zd.Add(2,"香蕉")
zd.Add(3,"波罗")
zd.Add(4,"桔子")
zd.Add(5,"桃子")

那请问集合名称如何获得？
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/7/27 23:39:00 [只看该作者]

请问字典本身如何增加键和值？

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


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/7/27 23:54:00 [只看该作者]

姓名        集合
张三        姓张的集合
张五        姓张的集合
王二        姓王的集合
张赵        姓张的集合


如何定义这样的字典？
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

添加看3楼

定义这样

dim d as new Dictionary(of string,List(of string))


[此贴子已经被作者于2014-7-28 9:10:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/28 9:08:00 [只看该作者]

Dim dic As new Dictionary(Of String, List (of String))

Dim zs As New List(Of String)

zs.Add("张三1")
zs.Add("张三2")

dic.Add("张三", zs)

msgbox(dic("张三")(1))
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/7/28 9:38:00 [只看该作者]

用vars变量的方式如何写？

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


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

只能用PublIC变量

public dic As new Dictionary(Of String, List (of String))


这一句放到全局变量
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/28 9:40:00 [只看该作者]

 

vars.add("a",Gettype( Dictionary(Of String, List (of String))))
vars("a") = new Dictionary(Of String, List (of String))
Dim zs As New List(Of String)

zs.Add("张三1")
zs.Add("张三2")

vars("a").Add("张三", zs)

msgbox(vars("a")("张三")(1))
 
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04895 秒, 4 次数据查询