Visual Basic

Private Function indexInArray(ByVal theArray As String(), ByVal value As String) As Integer
    For i As Integer = 0 To theArray.Length - 1
        If theArray(i) = value Then Return i
    Next
    Return -1
End Function

Private Sub testIt()
    Dim myStrings(1) As String
    myStrings(0) = "hello"
    myStrings(1) = "world"
    If indexInArray(myStrings, "hello") <> -1 Then
        MessageBox.Show("The string in contained within the array")
    End If
End Sub

indexInArray(the array you are working with, "value to search")

Filippo1974 wrote:

Is it possible to manage this kind of field without install this?

Private Function reconnectreport(ByVal report As ReportDocument, ByVal servernaam As String, ByVal dbnaam As String, ByVal dbLogin As String, ByVal dbPass As String) As ReportDocument
        Try
            Dim connection As IConnectionInfo
            Dim oldServerName As String = report.DataSourceConnections(0).ServerName
            Dim newServerName As String = servernaam
            Dim oldDatabaseName As String = report.DataSourceConnections(0).DatabaseName
            Dim newDatabaseName As String = dbnaam
            Dim userID As String = dbLogin
            Dim password As String = dbPass
            report = report
            ' Change the server name and database in main reports
            For Each connection In report.DataSourceConnections
                If (String.Compare(connection.ServerName, oldServerName, True) = 0 _
                    And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then
                    ' SetConnection can also be used to set new logon and new database table
                    report.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _
                    newServerName, newDatabaseName, userID, password)
                End If
            Next
            ' Change the server name and database in subreports
            Dim subreport As ReportDocument
            For Each subreport In report.Subreports
                For Each connection In subreport.DataSourceConnections
                    If (String.Compare(connection.ServerName, oldServerName, True) = 0 _
                        And String.Compare(connection.DatabaseName, oldDatabaseName, True) = 0) Then
                        ' SetConnection can also be used to set new logon and new database table
                        subreport.DataSourceConnections(oldServerName, oldDatabaseName).SetConnection( _
                        newServerName, newDatabaseName, userID, password)
                    End If
                Next
            Next
            Return report
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return Nothing
        End Try
    End Function