这样的情况怎么设置comboBox的选中项呢？

[msisbest]

现有comboBox1,
dim i as long
i = 0
do while not rs.Eof

comboBox1.addItem rs("name").value
comboBox1.itemData(i) = rs("id").value
i++
loop

有什么代码可以最简单的设置comboBox1的选中项为id = 10009的项呢。请注意不是index,页是其中的itemData.我不想遍历这个comboBox中的item

[sektor]

楼上怎么一个强字了得,呵呵

[CPLiu]

呵呵，强的问题自然有强的办法啊

[sektor]

不是想不想的问题.你直接传递10009到需要的地方更快

[CPLiu]

呵呵，有办法，很笨的办法

dim j as long
dim i as long
i = 0
do while not rs.Eof

comboBox1.addItem rs("name").value
comboBox1.itemData(i) = rs("id").value
if combobox1.ItemData(combobox1.newIndex)=10009 then j=combobox1.newindex
i++
loop
combobox1.listindex=j

[homezj]

rs.find "id=10009", , , 1
combobox1.text= rs("name").value

[msisbest]

To: CPLiu(老了)
这种方法只适合在生成comboBox选项时就知道它的value的情况。
但是我是假设现在选项是已有的，就想选中itemData = value的这一项，有没有最简单的方法啊？

[CPLiu]

那你只有挨个查了，查到就退出循环

[Tiger_Zhao]

用 MS Forms 2.0 中的 ComboBox，两列，数据列用 BoundColumn 指定，然后
ComboBox1.Value = 10009 就搞定了。