combo控件

Question

把记录集中的每一字段的值赋给一个combo控件不能写成combo1.text=mrc.fiels(0)那要怎么写呢有

Answer 1

do while not mrc.EOF 
   Combo1.additem mrc.Fields(0)
   Combo2.additem mrc.Fields(1)
   mrc.movenext
loop

Answer 2

the same，被他抢了，呵呵……

Answer 3

人家说的是每一字段，不是每一条记录。Dim i As LongFor i = 0 To mrc.Fields.Count - 1
    comobox1.AddItem mrc.Fields(i).Value
Next i