以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么获取字典变量中某个值的键值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73323)
--  作者：无我是天机
--  发布时间：2015/8/17 12:59:00
--  [求助]怎么获取字典变量中某个值的键值
问题如题所示！案列如下：
键值（Integer），值（Integer, String）
1001    张三
1002    李四
1003     王五

怎么返回，值等于“王五”的键值？谢谢
--  作者：大红袍
--  发布时间：2015/8/17 14:15:00
--  

要循环

 

Dim zd As New Dictionary(Of Integer, String)
zd.Add(1,"苹果")
zd.Add(2,"香蕉")
zd.Add(3,"波罗")
zd.Add(4,"桔子")
zd.Add(5,"桃子")
For Each k As Integer In zd.Keys \'显示所有键及其对应的值
    If zd(k) = "香蕉"
        msgbox(K & ":" & zd(k))
    End If
Next
--  作者：无我是天机
--  发布时间：2015/8/17 14:20:00
--  
OK，明白了，非常感谢