combo控件问题.

[xayzmb]

为什么不能在combo控件的单击事件中unload 控件数组?

[griefforyou]

代码

[xayzmb]

Private Sub cmbB1_Click(Index As Integer)
Dim i As Long
If cmbB1.Count > 1 Then
For i = 1 To cmbB1.Count - 1
Unload cmbB1(i)
Next
End If
End Sub

[freezx]

Dim rs As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim Sql As String
以上是定义与数据库连接
Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ChargeSystem.mdb;Persist Security Info=False"
cnn.Open
Set rs = New ADODB.Recordset
rs.Open "select * from OfficialFile", cnn, 3, 3
以上是调用数据库记录
然后以下是在cobmo1_click()中
cnn.Close
Set cnn = Nothing