以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教：字典中如何根据值拿到键  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169101)
--  作者：bahamute
--  发布时间：2021/6/2 18:07:00
--  请教：字典中如何根据值拿到键
Dim zd1 As New Dictionary(Of Integer, String)
zd1.Add(1,"苹果")
zd1.Add(2,"香蕉")
zd1.Add(3,"波罗")
zd1.Add(4,"桔子")
zd1.Add(5,"桃子")


如何根据“桔子”拿到键值4
--  作者：teng0731
--  发布时间：2021/6/2 18:17:00
--  
Dim zd1 As New Dictionary(Of Integer, String)
zd1.Add(1,"苹果")
zd1.Add(2,"香蕉")
zd1.Add(3,"波罗")
zd1.Add(4,"桔子")
zd1.Add(5,"桃子")

For Each k As Integer  In zd1.Keys \'在所有值中查找
    If zd1(k) ="桔子" Then
        Output.Show(K & ":" & zd1(k))
    End If
Next
[此贴子已经被作者于2021/6/2 18:19:49编辑过]
--  作者：liliandlili
--  发布时间：2023/3/17 12:30:00
--  
大佬 怎么 把页面数据放入datatable，然后for循环datatable数据，吧数据放入字典，然后判断是否有重key，有重复key跳出提示 
--  作者：有点蓝
--  发布时间：2023/3/17 13:36:00
--  
dim t as table = tables("表A")
Dim zd1 As New Dictionary(Of Integer, String)
for each r as row in t.rows
if zd1.containskey(r("键列")) then
msgbox(r("键列") & "重复")
else
zd1.add(r("键列"),r("值列"))
end if
next