Индекс находился вне границ массива VB.NET

Question

Есть проблема с кодом я не совсем понимаю, когда я бегу я получаю сообщение об ошибке: «Индекс находился вне границ массива»

Public Function DataSourceConnection_Report() 
    If Split(tmpStr, ":")(4) = "1" Then 
     mReport.DataSourceConnections(0).SetConnection(Split(tmpStr, ":")(1), "pharmacy", Split(tmpStr, ":")(2), Split(tmpStr, ":")(3)) 
    Else 
     mReport.DataSourceConnections(0).SetConnection(Split(tmpStr, ":")(1), "pharmacy", True) 
    End If 
    Return 0 
End Function 

Answer 1

Индексы основаны на нулевом значении, знаете ли вы это?

uum,no,,so how do you correct it

Может быть, вы хотите, 4-й элемент в массиве, то вам необходимо: Split(tmpStr, ":")(3) = "1":

Полный код:

Public Function DataSourceConnection_Report() As Int32 
    Dim split As String() = Microsoft.VisualBasic.Split(tmpStr, ":") ' use a variable, then you need to evaluate it only once ' 
    If split.Length >= 4 Then 
     If split(3) = "1" Then 
      mReport.DataSourceConnections(0).SetConnection(split(1), "pharmacy", split(2), split(3)) 
     Else 
      mReport.DataSourceConnections(0).SetConnection(split(1), "pharmacy", True) 
     End If 
    End If 
    Return 0 
End Function