以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请字典代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54412)
--  作者：hbhb
--  发布时间：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))
--  作者：有点甜
--  发布时间：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
--  发布时间：2014/7/27 23:18:00
--  
zd.Add(1,"苹果")
zd.Add(2,"香蕉")
zd.Add(3,"波罗")
zd.Add(4,"桔子")
zd.Add(5,"桃子")

那请问集合名称如何获得？
--  作者：hbhb
--  发布时间：2014/7/27 23:39:00
--  
请问字典本身如何增加键和值？
--  作者：hbhb
--  发布时间：2014/7/27 23:54:00
--  
姓名        集合
张三        姓张的集合
张五        姓张的集合
王二        姓王的集合
张赵        姓张的集合


如何定义这样的字典？
--  作者：Bin
--  发布时间：2014/7/28 8:38:00
--  
添加看3楼

定义这样

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


[此贴子已经被作者于2014-7-28 9:10:07编辑过]
--  作者：有点甜
--  发布时间：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
--  发布时间：2014/7/28 9:38:00
--  
用vars变量的方式如何写？
--  作者：Bin
--  发布时间：2014/7/28 9:39:00
--  
只能用PublIC变量

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


这一句放到全局变量
--  作者：有点甜
--  发布时间：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))