以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  字典值类型是否能为object？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89422)
--  作者：luodang2050
--  发布时间：2016/8/21 19:23:00
--  字典值类型是否能为object？

如题，定义一个字典，其值有可能存放date、string、boolean、table等，故需定义为object，不知行得通不？

如果可行，如何快速判断其变量类型？

另字典值是否可定义为另一字典或数组？
--  作者：cbt
--  发布时间：2016/8/21 20:10:00
--  
 \'直接试试

Dim zd As new Dictionary(of object,object )
Dim a As new Dictionary(of object,object )
a.add("1","11")
zd.Add("a",a)
zd.add(1,1)
zd.add(Date.Today ,1)
output.show(zd("a")("1"))
--  作者：Hyphen
--  发布时间：2016/8/22 8:43:00
--  
Dim zd As new Dictionary(of object,object )
Dim a As new Dictionary(of object,object )
a.add("1","11")
zd.Add("a",a)
zd.add(1,1)
zd.add(Date.Today ,1)

For Each key As object In zd.Keys
    If Typeof key  Is String Then Output.Show("字符串")
    If Typeof key  Is Integer Then Output.Show("数字")
    If Typeof zd(key) Is Dictionary(of object,object ) Then Output.Show("字典")
    Output.Show(key.Gettype().name & " - " & zd(key).Gettype().name)
Next