汽車零部件查詢系統(tǒng)設(shè)計(jì)-在線瀏覽
2024-08-10 07:09本頁面
【正文】 ElseText5(0) = Text5(1) = Text5(2) = Text5(3) = Text5(4) = Text5(5) = End IfIf 1 Then = TrueEnd SubPrivate Sub Text4_Change()For i = 0 To (0).ListCount 1If Text4 And Text3 = ThenIf Trim(Text4) = Trim((1).List(i)) Then iEnd IfEnd IfIf Text3 And Text4 ThenIf Trim((0).List(i)) = Trim(Text3) And Trim((1).List(i)) = Trim(Text4) Then iEnd IfEnd IfNext iIf 0 Then = 0p = Val()Call xishi(p)ElseText5(0) = Text5(1) = Text5(2) = Text5(3) = Text5(4) = Text5(5) = End IfIf 1 Then = TrueEnd SubPrivate Sub Text1_Change() 配件 amp。 amp。 amp。 適用車型 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 (1).List(i) amp。 (3).List(i) amp。 (5).List(i)End IfEnd IfIf Text1 And Text2 ThenIf Trim((0).List(i)) = Trim(Text1) And Trim((1).List(i)) = Trim(Text2) Then (0).List(i) amp。 (2).List(i) amp。 (4).List(i) amp。 amp。 零件型號(hào) amp。 amp。 amp。 amp。 發(fā)布日期 amp。 amp。 單位 amp。 amp。 amp。 價(jià)格For i = 0 To (0).ListCount 1If Text1 = And Text2 ThenIf Trim((1).List(i)) = Trim(Text2) Then (0).List(i) amp。 (2).List(i) amp。 (4).List(i) amp。 (1).List(i) amp。 (3).List(i) amp。 (5).List(i)End IfEnd IfNext iEnd Sub（11） Form11：Dim cars As qicheDim a(5)Private Sub Form_Load()Open + \ For Random As 2Do While Not EOF(2)i = i + 1Get 2, i, carsList1(0).AddItem List1(1).AddItem List1(2).AddItem List1(3).AddItem List1(4).AddItem List1(5).AddItem LoopCloseEnd SubPrivate Sub List1_Click(Index As Integer)Select Case Index Case 0List1(5).ListIndex = List1(0).ListIndexList1(4).ListIndex = List1(0).ListIndexList1(3).ListIndex = List1(0).ListIndexList1(2).ListIndex = List1(0).ListIndexList1(1).ListIndex = List1(0).ListIndexCase 1List1(5).ListIndex = List1(1).ListIndexList1(4).ListIndex = List1(1).ListIndexList1(3).ListIndex = List1(1).ListIndexList1(2).ListIndex = List1(1).ListIndexList1(0).ListIndex = List1(1).ListIndexCase 2List1(5).ListIndex = List1(2).ListIndexList1(4).ListIndex = List1(2).ListIndexList1(3).ListIndex = List1(2).ListIndexList1(0).ListIndex = List1(2).ListIndexList1(1).ListIndex = List1(2).ListIndexCase 3List1(5).ListIndex = List1(3).ListIndexList1(4).ListIndex = List1(3).ListIndexList1(0).ListIndex = List1(3).ListIndexList1(2).ListIndex = List1(3).ListIndexList1(1).ListIndex = List1(3).ListIndexCase 4List1(5).ListIndex = List1(4).ListIndexList1(0).ListIndex = List1(4).ListIndexList1(3).ListIndex = List1(4).ListIndexList1(2).ListIndex = List1(4).ListIndexList1(1).ListIndex = List1(4).ListIndexCase 5List1(0).ListIndex = List1(5).ListIndexList1(4).ListIndex = List1(5).ListIndexList1(3).ListIndex = List1(5).ListIndexList1(2).ListIndex = List1(5).ListIndexList1(1).ListIndex = List1(5).ListIndexEnd Select
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1