Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多级字典如何存储？


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

主题：[求助]多级字典如何存储？
帅哥哟，离线，有人找我吗？
小美菜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：4945 威望：0 精华：0 注册：2016/1/16 22:42:00 		[求助]多级字典如何存储？  发帖心情 Post By：2020/12/28 21:55:00 [显示全部帖子]

我想通过“ Sub字典保存函数(MainDc As Dictionary(Of String,Object) , ParamArray Args() As Object）”这样的函数实现
Sub字典保存函数(tDc ，“政策”,"水利",“供水”， "大水村"，“已经施工”)，让tDc(“政策”)("水利")(“供水”)("大水村")=“已经施工”,不管其中哪个主键没有，都能自动添加
 回到顶部
帅哥哟，离线，有人找我吗？
小美菜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：4945 威望：0 精华：0 注册：2016/1/16 22:42:00 		  发帖心情 Post By：2020/12/30 22:52:00 [显示全部帖子]

用
Dim oldDc As New Dictionary(Of String, Object)
SetDicKeyVal( oldDc ,"A","AA","AAA","AAAA","VV" )
SetDicKeyVal( oldDc ,"A","AA","AAA","DDDD","RERERE" )
SetDicKeyVal( oldDc ,"A","AA","AAA","CCCC","CPCPCP" )
SetDicKeyVal( oldDc ,"A","BB","BBB","EEEE" )
SetDicKeyVal( oldDc ,"A","BB","CCC","FFFF" )
SetDicKeyVal( oldDc ,"A","BB","DDD","GGGG" )
Dim XDc As  Dictionary(Of String, Object) = oldDc("A")("AA")("AAA")  
For Each tKey As String In xDc.Keys
  Output.Show(tKey)
Next
结果是
AAAA
DDDD
CCCC
用
Dim oldDc As New Dictionary(Of String, Object)
SetDicKeyVal( oldDc ,"A","AA","AAA","AAAA","VV" )
SetDicKeyVal( oldDc ,"A","AA","AAA","DDDD","RERERE" )
SetDicKeyVal( oldDc ,"A","AA","AAA","CCCC","CPCPCP" )
SetDicKeyVal( oldDc ,"A","BB","BBB","EEEE" )
SetDicKeyVal( oldDc ,"A","BB","CCC","FFFF" )
SetDicKeyVal( oldDc ,"A","BB","DDD","GGGG" )
Output.Show( oldDc("A")("BB")("DDD"))
结果报错：Dictionary(Of String, Object) 转换到类型“string”的转换无效，我之前用一直都是好的
 回到顶部
帅哥哟，离线，有人找我吗？
小美菜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：4945 威望：0 精华：0 注册：2016/1/16 22:42:00 		  发帖心情 Post By：2020/12/31 10:39:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:setdickeyval.txt

附件就是，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
小美菜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：651 积分：4945 威望：0 精华：0 注册：2016/1/16 22:42:00 		  发帖心情 Post By：2020/12/31 23:03:00 [显示全部帖子]

谢谢蓝老师，为何我的内部函数有的是好的，有的说找不到，奇怪了，在函数管理器中明明在的

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


加好友 发短信
等级：三尾狐 帖子：651 积分：4945 威望：0 精华：0 注册：2016/1/16 22:42:00 		  发帖心情 Post By：2021/1/1 17:30:00 [显示全部帖子]

蓝老师的SetDicKeyVal，我看了一天都没有看懂，如果我在最后一级发现有相同键及值，则删除之，又该如何实现？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 6 次数据查询