VBでルックアップテーブルを作る際に

質問

みなさんこんにちは！

VB初心者です。よろしくお願いします。
この度テーブルを二つ作成して、mstrTheirPartのテーブルにマッチする物が入力され場合、mstrDensoPartのなかからそれにマッチする物をラベルに表示するというプログラムを作っています。

しかし、このプログラムではなぜかうまく作動しないのです。一応、自分では論理は正しいと思っているのですが・・・。ご指導のほどよろしくお願いします。

以下がコードです。

Dim mstrDensoPart(8) As String
Dim mstrTheirPart(8, 2) As String
Dim mintIndex As Integer = -1

Private Sub btnLook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLook.Click

’テーブルのYを指定します。
If radBosch.Checked = True Then mintIndex = 0
If radChampion.Checked = True Then mintIndex = 1
If radAC.Checked = True Then mintIndex = 2

Dim blnFound As Boolean
Dim intindex As Integer

If mintIndex > -1 And mintIndex < 3 Then blnFound = False

Do Until intindex > 8 Or blnFound

’テキストボックスに入力されたものが一致すると
他のラベルにマッチする物を表示します。

If txtPartNo.Text.ToUpper = mstrTheirPart(intindex, mintIndex) Then lblSparkPlug.Text = mstrDensoPart(intindex).ToString("N")
blnFound = True

intindex += 1
Loop
If blnFound = False Then MessageBox.Show("Invalid Parts No.", "Error", MessageBoxButtons.OK)

回答No.1

audittrq · ベストアンサー

LOOPの中の処理は
-----------------------
If txtPartNo.Text.ToUpper = mstrTheirPart(intindex, mintIndex) Then lblSparkPlug.Text = mstrDensoPart(intindex).ToString("N")
blnFound = True
-----------------------
ではなくて
-----------------------
If txtPartNo.Text.ToUpper = mstrTheirPart(intindex, mintIndex) Then
　　lblSparkPlug.Text = mstrDensoPart(intindex).ToString("N")
　　blnFound = True
End If
-----------------------
ではないでしょうか？

お礼

ありがとうございます！！！出来ました！

感謝します！！