关于combobox的问题。在线给分

Question

程序运行中可以改变combobox的text属性的值吗？我在程序运行中往combobox里加如了几个标题，我如何将某一个设为text的值呢？谢谢

Answer 1

1.能
2。应该是combobox1.additem "string"

Answer 2

我的意思是我用additem往combobox加入了几个项目，而我想要其中一个显示为当前的

Answer 3

二楼的意思就是向combobox加入内容

Answer 4

可是我设text的值为什么不对。
combobox.text=rs("field")
这样写对吗？

Answer 5

combo1.listindex =整数（第一个为0，以次类推），可以将combo1中的任何一项设置为当前项

Answer 6

Option Explicit
Dim i As IntegerPrivate Sub Command1_Click()
    i = i + 1
    If i > Combo1.ListCount - 1 Then i = 0
    Combo1.ListIndex = i
    
End SubPrivate Sub Form_Load()    With Combo1
        .AddItem "AAA"
        .AddItem "BBB"
        .AddItem "CCC"
    End With
    
    Combo1.ListIndex = 0End Sub

Answer 7

得到当前值 dim str$,str=Combo1.text

Answer 8

帮我看看这段程序，有问题吗？
        rs.Open (sql)
        
        If rs.EOF Then
            OutSetCellList.AddItem ("没有任何单元")
        Else
            Do Until rs.EOF
                OutSetCellList.AddItem (rs("cellname"))
                
              If setDYid = rs("cellid") Then
                
                     OutSetCellList.Text = rs("cellname")
                     
              End If
                
               rs.MoveNext
                
            Loop
            
        End If
        rs.Close运行就出现run-time error '91'
object variable or with block variable not set如果把“OutSetCellList.Text = rs("cellname")”去掉就正常

Answer 9

不能这样写：combobox.text=rs("field")
应该：
      for i=0 to combo1.listcount-1 
         if combo1.list(i)=rs("field") then
            combo1.listindex=i
         endif
      next

Answer 10

OutSetCellList.Text = rs("cellname")  用下面代替就得了   for i=0 to OutSetCellList.listcount-1 
         if OutSetCellList.list(i)=rs("cellname") then
            OutSetCellList.listindex=i
         endif
   next

Answer 11

查一下午了，如果去掉“OutSetCellList.Text = rs("cellname")”就可以。

Answer 12

那肯定是 rs("cellname") 这里的问题了。

Answer 13

1.   adoRS.Open "SELECT .................
    
    Dim add$
    Combo1.Clear
    Do Until adoRS.EOF
        add$ = adoRS![字段]
        Combo1.AddItem add$
        adoRS.MoveNext
    Loop
2.    Combo1.ListIndex = 0       把第一项加入框中，一般在窗体的Load事件里写上就行了

Answer 14

我要在程序中动态的改变text的值。i我定义了。

Answer 15

你不能直接给text赋值，改变listindex的值text也改变

Answer 16

我直接给listindex赋值也出现错误