我创建一个字典
Dim ImageCollection As New Dictionary(Of ConvensionImages,Integer)
我补充了
For Each dr As DataRow In dt.Rows
Dim obj As New ConvensionImages
obj.ImageID = dr("ID")
obj.Name = dr("Name")
obj.Description = dr("Description")
obj.CategoryID = dr("CategoryID")
obj.CategoryName = dr("CategoryName")
obj.CategoryDescription = dr("CatDescription")
obj.EventID = dr("EventID")
obj.Image = dr("img")
obj.DownloadImage = dr("DownLoadImg")
ImageCollection.Add(obj,key)
key = key + 1
现在我想搜索ImageID和密钥我该怎么做
Make Integer作为您的词典的关键：
Dim ImageCollection As New Dictionary(Of Integer,ConvensionImages)
将ImageCollection.Add(obj，key)更改为ImageCollection.Add(key，obj)
并使用此循环：
For Each kvp As KeyValuePair(Of Integer,ConvensionImages) In ImageCollection
Dim v1 As Integer = kvp.Key
Dim v2 As ConvensionImages = kvp.Value
'Do whatever you want with v2:
'If v2.ImageID = .... Then
Next