Combox问题！

[zhaochengqing]

我在一个窗体中用了Combox控件Combo1，我想高成只能选的，但是里面的内容又想要在窗体初始化的时候设置，该怎么办我如下设置：
Dim SearchNum As Integer
SearchNum = Adodc1.Recordset.Fields(1).Value
frmydxm.Adodc1.Recordset.Find "[序号] = '" & SearchNum & "'"
frmydxm.Combo1 = frmydxm.Adodc1.Recordset.Fields("投资来源")
frmydxm.Combo2 = frmydxm.Adodc1.Recordset.Fields("土地权属")
frmydxm.Combo3 = frmydxm.Adodc1.Recordset.Fields("土地性质")
frmydxm.Combo4 = frmydxm.Adodc1.Recordset.Fields("用地现状")
frmydxm.Combo5 = frmydxm.Adodc1.Recordset.Fields("Year")
frmydxm.Show vbModal
可是达不到我的目的，会报错“Text为只读”
各位帮我想想办法，该怎么达到我的目的。

[zhaochengqing]

各位解决啦，说起来真郁闷，我没改代码，反属性做的一些没意义的改动之后动行一次再改回去就行啦，真奇怪！
谢谢啦！

[shiao2005]

真的来晚了.

[xayzmb]

'把combo1的style属性设为2
试下面的代码

Dim i As Long
For i = 0 To 100
Combo1.AddItem i '向combo1控件中写入内容
Next

[myhgyp]

来晚了，UP

[officecn]

二楼正解

[zhaochengqing]

来晚了也给你点分，111