车型库，车型库里面没有自己的型号

车型库软件系统与车型库数据, 我用的是动态数组，所以要动态申请数组的维数需要UBound 函数； 　　UBound 函数 　　返回一个 Long 型数据，其值为指定的数组维可用的最大下标 　　可以使用一下类似的语句 　　Set cn = CreateObject(“ADODB.Connection“) 　　cn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=True;Data Source=d:chexing.mdb“ 　　cn.Open 　　str1 = “select id,chexing,chang,kuan,gao from chexing “ 　　Set rs = CreateObject(“adodb.recordset“) 　　rs.Open str1, cn, 1, 1 　　调试程序如下（适当改一下你的表名，键值等） 　　‘access 数据表表名：chexing 　　‘结构id、chexing、chang、kuan、gao 　　Dim id() As Long 　　Dim chang() As Long 　　Dim kuan() As Long 　　Dim gao() As Long 　　Private Sub Combo1_Click() 　　Text1.Text = chang(Combo1.ListIndex) 　　Text2.Text = kuan(Combo1.ListIndex) 　　Text3.Text = gao(Combo1.ListIndex) 　　End Sub 　　Private Sub Form_Load() 　　ReDim id(0) 　　ReDim chang(0) 　　ReDim kuan(0) 　　ReDim gao(0) 　　Combo1.Clear 　　Set cn = CreateObject(“ADODB.Connection“) 　　cn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=True;Data Source=d:chexing.mdb“ 　　cn.Open 　　str1 = “select id,chexing,chang,kuan,gao from chexing “ 　　‘db = “d:chexing.mdb“ 　　‘connstr = “DBQ=“ db “;DefaultDir=;DRIVER=“ 　　‘ Set conn = CreateObject(“ADODB.Connection“) 　　‘conn.Open connstr 　　‘websql = “select * from chexing order by id“ 　　Set rs = CreateObject(“adodb.recordset“) 　　rs.Open str1, cn, 1, 1 　　If rs.EOF And rs.BOF Then 　　Else 　　Do While Not rs.EOF 　　Combo1.AddItem rs(“chexing“) 　　id(UBound(id)) = rs(“id“) 　　ReDim Preserve id(UBound(id) 1) 　　chang(UBound(chang)) = rs(“chang“) 　　ReDim Preserve chang(UBound(chang) 1) 　　kuan(UBound(kuan)) = rs(“kuan“) 　　ReDim Preserve kuan(UBound(kuan) 1) 　　gao(UBound(gao)) = rs(“gao“) 　　ReDim Preserve gao(UBound(gao) 1) 　　rs.MoveNext 　　Loop 　　End If 　　rs.Close 　　Set rs = Nothing 　　Set conn = Nothing 　　Combo1.ListIndex = 0 　　End Sub 库尔租车我可以选择指定车型吗？ 您好,目前海外租车只能按照车组进行选择,不能保证您取到您想要的车型。抵达门店后,您可在指定车组中任意选择自己喜欢的车辆。 库克山租车我可以选择指定车型吗？ 您好,目前海外租车只能按照车组进行选择,不能保证您取到您想要的车型。抵达门店后,您可在指定车组中任意选择自己喜欢的车辆。 纳库鲁租车我可以选择指定车型吗？ 您好,目前海外租车只能按照车组进行选择,不能保证您取到您想要的车型.抵达门店后,您可在指定车组中任意选择自己喜欢的车辆 库克山租车我可以选择指定车型吗？ 您好,如今海外租车只能按照车组进行选择,不能保证您取到您想要的车型.抵达门店后,您可在指定车组中任意选择自己喜欢的车辆 图尔库租车我可以选择指定车型吗？ 您好,目前海外租车只能按照车组进行选择,不能保证您取到您想要的车型。抵达门店后,您可在指定车组中任意选择自己喜欢的车辆。 库克山租车我可以选择指定车型吗？ 您好,目前海外租车只能按照车组进行选择,不能保证您取到您想要的车型。抵达门店后,您可在指定车组中任意选择自己喜欢的车辆。 图尔库租车我可以选择指定车型吗？ 您好,如今海外租车只能按照车组进行选择,不能保证您取到您想要的车型.抵达门店后,您可在指定车组中任意选择自己喜欢的车辆 纳库鲁租车我可以选择指定车型吗？ 您好,目前海外租车只能按照车组进行选择,不能保证您取到您想要的车型。抵达门店后,您可在指定车组中任意选择自己喜欢的车辆。 库尔租车我可以选择指定车型吗？ 您好,目前海外租车只能按照车组进行选择,不能保证您取到您想要的车型。抵达门店后,您可在指定车组中任意选择自己喜欢的车辆。