Dim n As Integer
Adodc2.Recordset.MoveFirst
For k = 0 To Combo2.ListCount
n = 1
Adodc1.Recordset.MoveFirst
For j = 1 To Adodc1.Recordset.RecordCount
For i = 1 To NC
If Adodc1.Recordset("站&str(i)&") = Combo2.List(k) Then
Adodc2.Recordset("途经路线n") = Adodc1.Recordset("公交路线号")
n=n+1
Exit For
End If
Next i '提示next没有for‘
Next j
Next k
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024