汽车零部件查询系统设计说明书(16)

VB的课程设计题

For i = 0 To Form12.List1(0).ListCount - 1 If Text1 <> "" And Text2 = "" Then

If Trim(Form12.List1(0).List(i)) = Trim(Text1) Then List1.AddItem

Form12.List1(0).List(i)

&

Form12.List1(1).List(i)

&

Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)

End If End If

If Text1 <> "" And Text2 <> "" Then If

Trim(Form12.List1(0).List(i))

=

Trim(Text1)

And

Trim(Form12.List1(1).List(i)) = Trim(Text2) Then

List1.AddItem

Form12.List1(0).List(i)

&

Form12.List1(1).List(i)

&

Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)

End If End If Next i End Sub

（2）列表框式零件型号框发生改变代码如下：

Private Sub Text2_Change() List1.Clear

List1.AddItem "配件" & " " & " " & "零件型号" & " " & " " & "适用车型" & " " & " " & " " & " " & "发布日期" & " " & " " & " " & "单位" & " " & " " & " " & " " & " " & "价格"

For i = 0 To Form12.List1(0).ListCount - 1 If Text1 = "" And Text2 <> "" Then

If Trim(Form12.List1(1).List(i)) = Trim(Text2) Then List1.AddItem

Form12.List1(0).List(i)

&

Form12.List1(1).List(i)

&

搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，第一范文网，提供最新高等教育汽车零部件查询系统设计说明书(16)全文阅读和word下载服务。