汽車零部件查詢系統(tǒng)設計(已改無錯字)
2022-07-28 07:09:01 本頁面
【正文】 p。 (1).List(i) amp。 (2).List(i) amp。 (3).List(i) amp。 (4).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。 (1).List(i) amp。 (2).List(i) amp。 (3).List(i) amp。 (4).List(i) amp。 (5).List(i)End IfEnd IfNext iEnd SubPrivate Sub Text2_Change() 配件 amp。 amp。 amp。 零件型號 amp。 amp。 amp。 適用車型 amp。 amp。 amp。 amp。 amp。 發(fā)布日期 amp。 amp。 amp。 amp。 單位 amp。 amp。 amp。 amp。 amp。 amp。 價格For i = 0 To (0).ListCount 1If Text1 = And Text2 ThenIf Trim((1).List(i)) = Trim(Text2) Then (0).List(i) amp。 (1).List(i) amp。 (2).List(i) amp。 (3).List(i) amp。 (4).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。 (1).List(i) amp。 (2).List(i) amp。 (3).List(i) amp。 (4).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 SelectEnd Sub(12) Form12:Dim cars As qicheDim a(5)Private Sub Command1_Click()If List1(0).Text = ThenMsgBox 請選擇要修改的零件Else = List1(0).Text = List1(1).Text = List1(2).Text = List1(3).Text = List1(4).Text = List1(5).
環(huán)評公示相關推薦
鄂ICP備17016276號-1