0

プロジェクトをビルドしようとすると問題が発生しますが、ビルドするたびにエラーが表示されますが、エラーボックスにはエラーが表示されません。何が原因か分かりますか?これは私のコーディングです

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

コードでは、配列リストの比較を開始すると、エラーが表示されます。

4

0 に答える 0