UC知道过程声明与同名事件或过程的描述不匹配
来源：百度知道 编辑：UC知道 时间：2024/05/22 16:24:34
Private Sub biaozhun_DropDown()
Dim i%
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
For i = 0 To 3
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\biaozhun.mdb"
Set rst = New ADODB.Recordset
Set rst.ActiveConnection = conn
For i = 0 To 3
If steelgrade.Text <> "" Then
rst.Open "Select * From biaozhun where steelgrade='" & steelgrade.Text & "'"
Do While Not rst.EOF
biaozhun(0).AddItem "" & rst("biaozhun")
rst.MoveNext
Loop
Else
rst.Open "Select * From biaozhun"
Do While Not rst.EOF
biaozhun(0).AddItem "" & rst("biaozhun")
rst.MoveNext
Loop
End If
rst.close
Set rst = Nothing
Set con
Dim i%
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
For i = 0 To 3
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\biaozhun.mdb"
Set rst = New ADODB.Recordset
Set rst.ActiveConnection = conn
For i = 0 To 3
If steelgrade.Text <> "" Then
rst.Open "Select * From biaozhun where steelgrade='" & steelgrade.Text & "'"
Do While Not rst.EOF
biaozhun(0).AddItem "" & rst("biaozhun")
rst.MoveNext
Loop
Else
rst.Open "Select * From biaozhun"
Do While Not rst.EOF
biaozhun(0).AddItem "" & rst("biaozhun")
rst.MoveNext
Loop
End If
rst.close
Set rst = Nothing
Set con
改成如下：
Private Sub biaozhun_DropDown(index as integer)
//对象 biaozhun 是数组
是combobox数组吧？
所有的控件数组都有index参数
先改成这样试试
....dropdown(index as integer)
不行就先搞清楚到底是什么数组再来问（问题补充）
Private Sub biaozhun_DropDown()过程的参数没有，不正确吧。看下同名事件或过程的参数描述再修改下