如何引用Collect 的Key 属性

Question

With rdTable
        Set colItem = New Collection
        .open "select ItemId,ItemName  from ItemCost  order by ItemId", cnn, 1, 1, 1
        While Not rdTable.EOF
            colItem.Add rdTable.Fields("ItemName").Value, "N" & .Fields("ItemId").Value
            .MoveNext
        Wend
        .Close
    End With    代码如上我给ColItem集合变量添加元素了
    如何引用ColItem 元素的key

Answer 1

colitem("N" & .fields("ItemID").value)

Answer 2

那样还是引用的.Fields("ItemName") 阿
我要引用.Fields("ItemId")

Answer 3

那就把ItemName改成ItemId不就成了？

Answer 4

Collection好像不能由它本身得到其key的。不像treeview中的node对象可以由node.key得到其key;不过你可以用vb自带的类生成器将你的数据库表结构定义为一个类，数据库数据定义为一个集合。将itemname,itemid都定义到类结构中。