combobox.clear for i=1 to rs.recordcount combobox.additem rs!字段名 & "" rs.movenext next i
晕,你一定是把combo直接绑定到ado去了。
for i=1 to rs.recordcount 中的RS是什么啊
dim rs as New ADODB.Recordset
Private Sub Form_Load() Dim rs As New ADODB.Recordset Combo1.Clear For i = 1 To rs.RecordCount Combo1.AddItem rs!货号 & "" rs.MoveNext Next i end sub 好象还是有问题,执行不了啊
for i=1 to rs.recordcount
combobox.additem rs!字段名 & ""
rs.movenext
next i
Dim rs As New ADODB.Recordset
Combo1.Clear
For i = 1 To rs.RecordCount
Combo1.AddItem rs!货号 & ""
rs.MoveNext
Next i
end sub
好象还是有问题,执行不了啊