dim i as integer for i=0 to adodc1.recordset.recordcount+1 combo1.additem adodc1.recordset.fields(i)next以上是代码。麻烦看看啊。
可以了,谢谢