level 1
谁能帮忙看看什么意思啊?
谢谢了!
Public Sub add(ByVal t As ComboBox, ByVal j As String, ByVal m As String)
Set rs1 = New ADODB.Recordset
rs1.Open j, cnn, adOpenStatic
If rs1.RecordCount > 0 Then
For i = 1 To rs1.RecordCount
t.AddItem rs1.Fields(m).Value
rs1.MoveNext
Next i
End If
End Sub
2011年11月10日 12点11分