Option Explicit
'Dimension the 2d array.
Dim mstrPartNumber(8, 3) As String
Private Sub cmdLookUp_Click()
'What happens when you click Look up
'Dimension Variables.
Dim strPartNumber As String
'convert text input in to a variable
strPartNumber = UCase(txtPartNumber.Text)
'used case to decide on brand and part number.
Select Case lstBrand.Text
'case for brand a
Case "Brand A"
If strPartNumber = UCase(mstrPartNumber(0, 1)) Then
lblVBPartNumber.Caption = mstrPartNumber(0, 0)
End If
If strPartNumber = UCase(mstrPartNumber(1, 1)) Then
lblVBPartNumber.Caption = mstrPartNumber(1, 0)
End If
If strPartNumber = UCase(mstrPartNumber(2, 1)) Then
lblVBPartNumber.Caption = mstrPartNumber(2, 0)
End If
If strPartNumber = UCase(mstrPartNumber(3, 1)) Then
lblVBPartNumber.Caption = mstrPartNumber(3, 0)
End If
If strPartNumber = UCase(mstrPartNumber(4, 1)) Then
lblVBPartNumber.Caption = mstrPartNumber(4, 0)
End If
If strPartNumber = UCase(mstrPartNumber(5, 1)) Then
lblVBPartNumber.Caption = mstrPartNumber(5, 0)
End If
If strPartNumber = UCase(mstrPartNumber(6, 1)) Then
lblVBPartNumber.Caption = mstrPartNumber(6, 0)
End If
If strPartNumber = UCase(mstrPartNumber(7, 1)) Then
lblVBPartNumber.Caption = mstrPartNumber(7, 0)
End If
If strPartNumber = UCase(mstrPartNumber(8, 1)) Then
lblVBPartNumber.Caption = mstrPartNumber(8, 0)
End If
'case for brand b
Case "Brand B"
If strPartNumber = UCase(mstrPartNumber(0, 2)) Then
lblVBPartNumber.Caption = mstrPartNumber(0, 0)
End If
If strPartNumber = UCase(mstrPartNumber(1, 2)) Then
lblVBPartNumber.Caption = mstrPartNumber(1, 0)
End If
If strPartNumber = UCase(mstrPartNumber(2, 2)) Then
lblVBPartNumber.Caption = mstrPartNumber(2, 0)
End If
If strPartNumber = UCase(mstrPartNumber(3, 2)) Then
lblVBPartNumber.Caption = mstrPartNumber(3, 0)
End If
If strPartNumber = UCase(mstrPartNumber(4, 2)) Then
lblVBPartNumber.Caption = mstrPartNumber(4, 0)
End If
If strPartNumber = UCase(mstrPartNumber(5, 2)) Then
lblVBPartNumber.Caption = mstrPartNumber(5, 0)
End If
If strPartNumber = UCase(mstrPartNumber(6, 2)) Then
lblVBPartNumber.Caption = mstrPartNumber(6, 0)
End If
If strPartNumber = UCase(mstrPartNumber(7, 2)) Then
lblVBPartNumber.Caption = mstrPartNumber(7, 0)
End If
If strPartNumber = UCase(mstrPartNumber(8, 2)) Then
lblVBPartNumber.Caption = mstrPartNumber(8, 0)
End If
'Case for brand X
Case "Brand X"
If strPartNumber = UCase(mstrPartNumber(0, 3)) Then
lblVBPartNumber.Caption = mstrPartNumber(0, 0)
End If
If strPartNumber = UCase(mstrPartNumber(1, 3)) Then
lblVBPartNumber.Caption = mstrPartNumber(1, 0)
End If
If strPartNumber = UCase(mstrPartNumber(2, 3)) Then
lblVBPartNumber.Caption = mstrPartNumber(2, 0)
End If
If strPartNumber = UCase(mstrPartNumber(3, 3)) Then
lblVBPartNumber.Caption = mstrPartNumber(3, 0)
End If
If strPartNumber = UCase(mstrPartNumber(4, 3)) Then
lblVBPartNumber.Caption = mstrPartNumber(4, 0)
End If
If strPartNumber = UCase(mstrPartNumber(5, 3)) Then
lblVBPartNumber.Caption = mstrPartNumber(5, 0)
End If
If strPartNumber = UCase(mstrPartNumber(6, 3)) Then
lblVBPartNumber.Caption = mstrPartNumber(6, 0)
End If
If strPartNumber = UCase(mstrPartNumber(7, 3)) Then
lblVBPartNumber.Caption = mstrPartNumber(7, 0)
End If
If strPartNumber = UCase(mstrPartNumber(8, 3)) Then
lblVBPartNumber.Caption = mstrPartNumber(8, 0)
End If
End Select
End Sub
Private Sub Form_Load()
'loads the table ito memory at load.
'the variable mstrPartNumber
mstrPartNumber(0, 0) = "PR214"
mstrPartNumber(0, 1) = "MR43T"
mstrPartNumber(0, 2) = "RBL8"
mstrPartNumber(0, 3) = "14K22"
mstrPartNumber(1, 0) = "PR223"
mstrPartNumber(1, 1) = "R43"
mstrPartNumber(1, 2) = "RJ6"
mstrPartNumber(1, 3) = "14K24"
mstrPartNumber(2, 0) = "PR224"
mstrPartNumber(2, 1) = "R43N"
mstrPartNumber(2, 2) = "RN4"
mstrPartNumber(2, 3) = "14K30"
mstrPartNumber(3, 0) = "PR246"
mstrPartNumber(3, 1) = "R46N"
mstrPartNumber(3, 2) = "RN8"
mstrPartNumber(3, 3) = "14K32"
mstrPartNumber(4, 0) = "PR247"
mstrPartNumber(4, 1) = "R46TS"
mstrPartNumber(4, 2) = "RBL17Y"
mstrPartNumber(4, 3) = "14K33"
mstrPartNumber(5, 0) = "PR248"
mstrPartNumber(5, 1) = "R46TX"
mstrPartNumber(5, 2) = "RBL12-6"
mstrPartNumber(5, 3) = "14K35"
mstrPartNumber(6, 0) = "PR324"
mstrPartNumber(6, 1) = "S46"
mstrPartNumber(6, 2) = "J11"
mstrPartNumber(6, 3) = "14K38"
mstrPartNumber(7, 0) = "PR326"
mstrPartNumber(7, 1) = "SR46E"
mstrPartNumber(7, 2) = "XEJ8"
mstrPartNumber(7, 3) = "14K40"
mstrPartNumber(8, 0) = "PR444"
mstrPartNumber(8, 1) = "47L"
mstrPartNumber(8, 2) = "H12"
mstrPartNumber(8, 3) = "14K44"
End Sub