Valore vettore esterno ad una sub

[isteriko]

Raga ho una classe con due sub di tipo public

definisco un vettore all'interno della classe ma all'esterno delle sub


dim vettorejoin() as string

public sub popolavettore()

in questa sub effettuo un ciclo per popolare il vettore

End Sub


public sub recuperavettore()

qui vado a recuperare il valore del vettore generato dalla sub popolavettore

end sub


le due sub vengono chiamate in sequenza ovviamente prima popolavettore dopo recuperavettore ma all'interno della sub recupera vettore lo stesso risulta vuoto nullo invece nella sub popolavettore è popolato correttamente ... come mai???
ufffffffffff

[pietro09]

Quello che dici è un mistero

Seguendo le tue indicazioni, questo funziona benessimo (e come non potrebbe? )

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        popolavettore()
        recuperavettore()
    End Sub

    Dim vettorejoin(10) As String

    Public Sub popolavettore()
        For i As Integer = 0 To vettorejoin.GetUpperBound(0)
            vettorejoin(i) = i.ToString
        Next
    End Sub

    Public Sub recuperavettore()
        For i As Integer = 0 To vettorejoin.GetUpperBound(0)
            PrintLn(vettorejoin(i))
        Next
    End Sub

[isteriko]

potrebbe dipendere dal fatto che effettuo un redim del vettore all'interno della sub popolavettore?

[pietro09]

Non credo proprio:

    Dim vettorejoin() As String

    Public Sub popolavettore()
        ReDim vettorejoin(8)
        For i As Integer = 0 To vettorejoin.GetUpperBound(0)
            vettorejoin(i) = i.ToString
        Next
    End Sub

    Public Sub recuperavettore()
        For i As Integer = 0 To vettorejoin.GetUpperBound(0)
            PrintLn(vettorejoin(i))
        Next
    End Sub

[isteriko]

in effetti anche togliendolo il valore rimane sempre nullo ma porca zozza tutte a me ste cose ... uff

da cosa potrebbe dipendere ?

[pietro09]

Originariamente inviato da isteriko
in effetti anche togliendolo il valore rimane sempre nullo ma porca zozza tutte a me ste cose ... uff

da cosa potrebbe dipendere ?

perchè non mandi un poco di codice? Questo non è il sito ufficiale dei maghi italiani

[isteriko]

dim vettorejointabella(0)

Public Sub popolaliste()
'controllo file xml
Dim textreader2 As XmlTextReader = New XmlTextReader(Server.MapPath("config.xml"))


While textreader2.Read

If textreader2.Name = "TABELLA" And textreader2.HasAttributes Then

ReDim Preserve vettorenametabella(j)
ReDim Preserve vettorealiastabella(j)
redim preserve vettorejointabella(j)

vettorenametabella(j) = textreader2.GetAttribute("name").ToString
vettorealiastabella(j) = textreader2.GetAttribute("ALIAS").ToString
vettorejointabella(j) = textreader2.GetAttribute("JOIN").ToString
j += 1

End If

End While
textreader2.Close()

' fine controllo file

For i = 0 To vettorejointabella.Length - 1
Response.Write(vettorejointabella(i) & " " & i & "
")
Next

End Sub

'fin qui tutto bene il vettore è popolato!


Public Sub inizializzaquery()

For i = 0 To vettorejointabella.Length - 1
Response.Write(vettorejointabella(i) & " " & i & "
")
Next


qui il valore non esiste !!!!!

end sub

Public Sub btnpopolaliste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpopolaliste.Click

Call popolaliste()
call inizializzaquery()

End Sub