为什么报错：Combo1.Text是只读属性，如何给Combo1.Text赋值

Question

我原来用过Combo1.Text="000" ，现在再用怎么不行了呢？是不是哪的属性没设对？请帮忙

Answer 1

Combo1。style=0
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 最新版本：20070212http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

Answer 2

不用看代码也知道发生这种情况的唯一的原因就是因为你当前操作的Combo1属性中“.Style = 2”；
默认是0的，即既可输入也可选择；而设置为2，意思是只可选，不可直接赋值，
也就是说要用代码来改变选择项的话，
不能再用“Combo1.Text=XXX”的方式，
而只能通过“.ListIndex = N”（其中N代表ListIndex值） 的方式；举个最简单的例子给你：
    If Combo1.ListIndex < 1 then Exit Sub    For = 0 To Combo1.ListCount - 1
        strTmp = Combo1.List(i)
        
        '' Target data?
        If strTmp = "000" Then
            Combo1.ListIndex = i
            
            '' Exit
            Exit For
        End If
    Next i