请教!

解决方案 »

  1.   

    While Not rs.EOF
    Combo1.AddItem rs.Fields(0)
    rs.MoveNext
    Wend
      

  2.   

    谢谢大侠的答复!还有个小问题请教:怎么引用combo1上显示的第一条、第n条、最后一条记录?请教请教!谢谢先!
      

  3.   

    Private Sub Form_Load ()
       Combo1.AddItem "Denver Sandwich"   ' 对列表添加项。
       Combo1.AddItem "Reuben Sandwich"
       Combo1.AddItem "Turkey Sandwich"
       Combo1.Text = Combo1.List(2)   ' 显示列表中的第三项。
       text1.text=combol1.text
    End Sub
      

  4.   


    while not rs.eof
       xxxstring=" "
       for i=0 to rs.fields
          xxxstring=xxxstring+" "+cstr(rs(i).value)
       next
       combo1.additem xxxstring
       rs.movenext
    wend