プロジェクトをビルドしようとすると問題が発生しますが、ビルドするたびにエラーが表示されますが、エラーボックスにはエラーが表示されません。何が原因か分かりますか?これは私のコーディングです
Dim sTmp As String
Dim aTmp(), bTmp() As String
Dim MRWS As New MobileReload_WS.MobileReload_WS
Dim aTelco(12, 3) As String
Dim aProduct(12, 3) As String
Label1.Text = "0.0"
sTmp = MRWS.LoadTelco_WS()
If sTmp = "" Then
Exit Sub
Else
aTmp = Split(sTmp, "|", )
For i = 0 To UBound(aTmp)
bTmp = Split(aTmp(i), ";")
For j = 0 To UBound(bTmp)
aTelco(i + 1, j) = bTmp(j)
Next
Next
End If
If aTelco(1, 0) <> Nothing Then
If aTelco(1, 3) = "0" Then
imgMaxis.Enabled = False
imgMaxis.ImageUrl = "~/Graphic/MaxisGry.png"
Else
imgMaxis.Enabled = True
imgMaxis.Visible = True
End If
End If
If aTelco(2, 0) <> Nothing Then
If aTelco(2, 3) = "0" Then
imgDigi.Enabled = False
imgDigi.ImageUrl = "~/Graphic/DIgiGry.png"
Else
imgDigi.Enabled = True
imgDigi.Visible = True
End If
End If
If aTelco(3, 0) <> Nothing Then
If aTelco(3, 3) = "0" Then
imgXPax.Enabled = False
imgXPax.ImageUrl = "~/Graphic/XpaxGry.png"
Else
imgXPax.Enabled = True
imgXPax.Visible = True
End If
End If
If aTelco(4, 0) <> Nothing Then
If aTelco(4, 3) = "0" Then
imgiTalk.Enabled = False
imgiTalk.ImageUrl = "~/Graphic/iTalkGry.png"
Else
imgiTalk.Enabled = True
imgiTalk.Visible = True
End If
End If
If aTelco(5, 0) <> Nothing Then
If aTelco(5, 3) = "0" Then
imgUMobile.Enabled = False
imgUMobile.ImageUrl = "~/Graphic/UMobileGry.png"
Else
imgUMobile.Enabled = True
imgUMobile.Visible = True
End If
End If
If aTelco(6, 0) <> Nothing Then
If aTelco(6, 3) = "0" Then
imgMerchant.Enabled = False
imgMerchant.ImageUrl = "~/Graphic/MerchantGry.png"
Else
imgMerchant.Enabled = True
imgMerchant.Visible = True
End If
End If
If aTelco(7, 0) <> Nothing Then
If aTelco(7, 3) = "0" Then
imgTuneTalk.Enabled = False
imgTuneTalk.ImageUrl = "~/Graphic/TuneGry.png"
Else
imgTuneTalk.Enabled = True
imgTuneTalk.Visible = True
End If
End If
If aTelco(8, 0) <> Nothing Then
If aTelco(8, 3) = "0" Then
imgXOX.Enabled = False
imgXOX.ImageUrl = "~/Graphic/XOXGry.png"
Else
imgXOX.Enabled = True
imgXOX.Visible = True
End If
End If
If aTelco(9, 0) <> Nothing Then
If aTelco(9, 3) = "0" Then
imgRedTone.Enabled = False
imgRedTone.ImageUrl = "~/Graphic/RedToneGry.png"
Else
imgRedTone.Enabled = True
imgRedTone.Visible = True
End If
End If
End Sub
コードでは、配列リストの比較を開始すると、エラーが表示されます。