首先,Combo1要弄成控件数组,而且数组元素的个数要与数据库的字段数一样;其次,代码要修改为:For i = 0 To Combo1.UBound Combo1(i).Clear Combo1(i).AddItem .Fields(i) Combo1(i).ListIndex = 0Next i
连代码都不改可以直接换控件???