以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  字典取值问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77919)

--  作者:黑苹果
--  发布时间:2015/11/27 18:55:00
--  字典取值问题
Dim zd As New Dictionary(Of String,Integer)

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


If zd.ContainsValue("桔子") = True Then \'是否存在值"桃子"
    Dim id As Integer = 4  ?  这里如何获得 桔子健值所对应的字典值 4
End If
\'

--  作者:黑苹果
--  发布时间:2015/11/27 19:35:00
--  
唉搞定了,帮助里有,但很容易忽视了