我创建了一个字典
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并键入我该怎么做
发布于 2013-09-05 14:12:58
将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
发布于 2013-09-05 15:20:50
你也可以这样循环:
For Each iKey As Integer In ImageCollection.Keys
Dim value As ConvensionImages = ImageCollection(iKey)
'...
Next
这是非常快速和简单的方法。
https://stackoverflow.com/questions/18628917
复制相似问题