Ошибка «Индекс вышел за пределы диапазона. Должен быть неотрицательным и меньше размера коллекции» - PullRequest
Новая
       14

Ошибка «Индекс вышел за пределы диапазона. Должен быть неотрицательным и меньше размера коллекции»

0 голосов
/ 30 января 2020

Я проверил нашу таблицу и данные там. Мы не можем отладить приложение, так как в нашем приложении есть очень старая программа составления отчетов, что предыдущие пункты поддержки каким-то образом потеряли установщик, и теперь мы застряли с ним. вызвал проблему 

Private Sub fetchData07375()

    Try

        Dim getIndexWhseCd As Integer
        pickticket.getValues07375(92)

        ' Filter from arraylist to get Whse Code, Name ,State And Zip 
        'Get the index of the Warehouse
        getIndexWhseCd = pickticket.str07375WhseCd.IndexOf(strWhsecd)

        'WareHouse Name
        str07375WrshNameTx = pickticket.str07375WhseName.Item(getIndexWhseCd).ToString().Trim()

        'State Cd
        str07375StateCd = pickticket.str07375StateCd.Item(getIndexWhseCd).ToString().Trim()

        'Zip Cd
        str07375ZipCd = pickticket.str07375ZipCd.Item(getIndexWhseCd).ToString().Trim()

        'City 
        str07375CityNm = pickticket.str07375CityNm.Item(getIndexWhseCd).ToString().Trim()

        'Country
        str07375CountryNm = pickticket.str07375CountryNm.Item(getIndexWhseCd).ToString().Trim()

        'Add1
        str07375WrhsLine1Ad = pickticket.str07375WrhsLine1Ad.Item(getIndexWhseCd).ToString().Trim()

        'Add2
        str07375WrhsLine2Ad = pickticket.str07375WrhsLine2Ad.Item(getIndexWhseCd).ToString().Trim()

    Catch ex As Exception
        Throw New Exception(ex.Message)
    End Try

End Sub
...