以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  嵌套字典操作咨询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149381)

--  作者:guosheng
--  发布时间:2020/4/30 9:28:00
--  嵌套字典操作咨询
当字典还有某个 key时,将字典中内部的字典子元素进行 运算操作
Dim cnn As New Dictionary(Of String, Dictionary(Of String,Decimal))

Dim cdd As New Dictionary(Of String,Decimal)
cdd.Add("未付金额",1)

If cnn.ContainsKey(1001) = False Then \'是否存在键
cnn.Add(1001,cdd)
else
未付金额 对应的value 变成 1+200
1001对应的字典是否有key “未付金额”,该怎么判断啊
End If

[此贴子已经被作者于2020/4/30 9:32:14编辑过]

--  作者:有点蓝
--  发布时间:2020/4/30 10:20:00
--  
If cnn.ContainsKey(1001) = False Then \'是否存在键
cnn.Add(1001,cdd)
else
dim d as Dictionary(Of String,Decimal) = cnn(1001)
if d.ContainsKey("未付金额")  then
d("未付金额") += 200
else
d.Add("未付金额",1)
end if
End If