Question

VB程序制作：将text1文本框换成Combo1,运行时提示:实时错误'340',控件数组元素（1）不存在

Sub view_data() '定义显示数据的过程
If Adodc1.Recordset.RecordCount > 0 Then
With Adodc1.Recordset
For i = 0 To Text1.UBound
If .Fields(i) <> "" Then Text1(i) = .Fields(i) Else Text1(i) = ""
Next i
Set picPhoto.DataSource = Adodc1
picPhoto.DataField = "照片"

If .Fields("照片") Is Nothing Then
picPhoto.Picture = LoadPicture()
End If
End With
End If
End Sub
调试时：提示该条Then Text1(i) = .Fields(i) Else有问题

Answer 1

首先，Combo1要弄成控件数组，而且数组元素的个数要与数据库的字段数一样；
其次，代码要修改为：
For i = 0 To Combo1.UBound
Combo1(i).Clear
Combo1(i).AddItem .Fields(i)
Combo1(i).ListIndex = 0
Next i

Answer 2

连代码都不改可以直接换控件？？？