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

VB的课程设计题

If Text3 <> "" And Text4 <> "" Then If

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

=

Trim(Text3)

And

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

List2.AddItem i End If End If Next i

If List2.ListCount > 0 Then List2.ListIndex = 0 p = Val(List2.Text) Call xishi(p) Else

Text5(0) = "" Text5(1) = "" Text5(2) = "" Text5(3) = "" Text5(4) = "" Text5(5) = "" End If

If List2.ListCount > 1 Then Command2.Enabled = True End Sub

（7）卡片式零件型号框发生改变代码如下：

Private Sub Text4_Change() List2.Clear

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

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