none
Índice fora do intervalo de exceção no Array RRS feed

  • Pergunta

  • Bom dia pessoal,

    estou com um problema e não consigo resolver.

    public Class menu

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim sql As String
            Dim myTable As DataTable
            Dim row1 As DataRow
            Dim Label1 As System.Windows.Forms.Label
            Dim Array(9) As Button
            lbl1.Text = RTrim(v_nome)
            Dim i As Int16


            Array(0) = Button1
            Array(1) = Button2
            Array(2) = Button3
            Array(3) = Button4
            Array(4) = Button5
            Array(5) = Button6
            Array(6) = Button7
            Array(7) = Button8
            Array(8) = Button9
            Array(9) = Button10

            For i = 0 To 9
                Array(i).Visible = False
            Next

            i = 0
            'sql = "select mch_number from md_machines where pp_code='by'"
            sql = "select mch_number, mch_code from md_machines where pp_code='BY' "
            myTable = MyProx.Generico_Sem_Cache_PCS(sql).Tables(0)
            For Each row1 In myTable.Rows
                ' erro de indice aqui?? Array(i).Visible = True 
                Array(i).Text = row1(0)
                Array(i).Tag = row1(1)
                i = i + 1
            Next


        End Sub

    alguém poderia me ajudar?

    Grato

    terça-feira, 31 de maio de 2016 12:11

Respostas

  • Boa noite,

    Amigo, verifique a quantidade de linhas no seu DataTable "myTable". Se for maior que 10 linhas (0 a 9) vai precisar adicionar uma condição ou tratar o erro como desejar.

    Att,


    Se a resposta contribuiu com seu aprendizado por favor marque como util, se solucionou seu problema marque como resposta.

    • Sugerido como Resposta Silvaney quarta-feira, 1 de junho de 2016 01:02
    • Marcado como Resposta Thales F Quintas quarta-feira, 1 de junho de 2016 15:08
    quarta-feira, 1 de junho de 2016 01:02