combo出问题了，快帮帮

Question

动态加载的combo的list，怎么选择的时候text属性没有值啊！下面是加载的combo；
For j = 1 To Adodc2.Recordset.RecordCount
st = Adodc2.Recordset.Fields(1)
cm1.AddItem st
Adodc2.Recordset.MoveNext
Next j怎么选择的时候，它的text属性没有值啊！

Answer 1

do while not Adodc2.Recordset.eof
st = Adodc2.Recordset.Fields(1)
cm1.AddItem st
Adodc2.Recordset.MoveNext
loop

Answer 2

Adodc1.ConnectionString = "..."
    Adodc1.RecordSource = "bookinfo"
    Adodc1.Refresh
    
    For j = 1 To Adodc1.Recordset.RecordCount
        st = Adodc1.Recordset.Fields(1)
        cm1.AddItem st
        Adodc1.Recordset.MoveNext
    Next j连接字符串自己写 
应该是你没取出记录级来

Answer 3

原因有三：
1/没有连接上数据库，Adodc2.Recordset.RecordCount为0
  方法：用msgbox Adodc2.state,看看是否等于1.
2/连接上了资料库，但取Recordset错误造成Adodc2.Recordset.RecordCount为0
  方法：用msgbox Adodc2.Recordset.RecordCount，看看是否大于0.3/连接上了资料库，取Recordset也正确，可能空格太多，没有用Trim$()造成。
  方法：do while not Adodc2.Recordset.eof
st = Adodc2.Recordset.Fields(1)
Debug.print Adodc2.Recordset.Fields(1)
Adodc2.Recordset.MoveNext
loop

Answer 4

Recordset 遍历后才能获得记录数。Adodc2.Recordset.Movelast
Adodc2.Recordset.Movefirst
For j = 1 To Adodc2.Recordset.RecordCount
st = Adodc2.Recordset.Fields(1)
cm1.AddItem st
Adodc2.Recordset.MoveNext
Next j我一般这样做：
Do Until Adodc2.Recordset.EOF
   cm1.AddItem Adodc2.Recordset.Fields(1)
   Adodc2.Recordset.MoveNext
Loop