关于COMBO1控件的问题

Question

因为你设COMBO1的数据源也只能将COMBO1的TEXT改变，而下拉框中没有数据
所以建议你用一个循环增加到COMBO1：
do while not rs.eof
   Combo1.AddItem rs(0)
   rs.movenext
loop

Answer 1

你的语句格式应该是：
RS.Open ("SELECT CLXH FROM CLMXB WHERE CLXH   LIKE '%" & '" Combo1.Text"' & "%' ")

Answer 2

首先是CHANGE事件然后
intj1 = rs1.RecordCount - 1
For inti1 = 0 To intj1
string1 = rs1.Fields("委托单位名称").Value
Combo2.List(inti1) = string1
rs1.MoveNext
Next inti1
最后
Set dbrecordset = dbdatabase.OpenRecordset("select * from bmfg where name like '" & "*" & COMBO1.Text & "*" & "'")

Answer 3

COMBO控件？
COMBO控件的DataSource属性只是指它绑定的数据源，而非列表框里的内容你需要的是DataCombo控件，设置其RowSource属性！

Answer 4

引用Microsoft DataList Controls 6.0ComboBox也可以用，但是要手工添加列表：Combo1.Clear
 do while not rs.eof
   Combo1.AddItem rs!CLXH
   rs.movenext
loop