[VB 6]Help su array bidimensionali

[TheAikon]

Salve ragazzi, vorrei un vostro consiglio su come implementare una porzione di codice utilizzando un array bidimensionale.

In pratica devo sfogliare dei record, recuperando ad ogni ciclo due valori: uno numerico e l'altro stringa. Recuperato tale coppia, devo verificare se esitono già nell'array ed in caso negativo aggiungerli.

Spero di essere stato abbastanza chiaro. Grazie a tutti i partecipanti!

[ciro78]

se ho capito qualcosa delle matrici penso di non capire quello che chiedi
una matrice bidimensionale è una cosa fatta così

matrice(x,y) e può contenere solo un elemento non due(per coppia di indici).In pratica è una tabella
se poi mi dici che la prima colonna della matrice contiene testo e la seconda numeri il discorso cambia .


fammi sapere meglio se posso ti aiuto volentieri

[xegallo]

function C_E_gia (byref A() as variant, valore as variant) as boolean
dim i as integer
dim j as integer

    C_E_gia = false
    for i = lbound(A,1) to ubound(A,1)
       for j = lbound(A,2) to ubound(A,2)
           if valore = A(i,j) then
              C_E_gia = true 
              exit function
           end if
       next j
    next i

end function

[ciro78]

if valore = A(i,j) then

questa espressione controlla solo un valore oppure una coppia?
io penso che controlli un unico valore e se ho capito bene lui voleva controllare la coppia

[xegallo]

Originariamente inviato da ciro78
questa espressione controlla solo un valore oppure una coppia?
io penso che controlli un unico valore e se ho capito bene lui voleva controllare la coppia

basta chiamarla 2 volte
era una routine generica

[ciro78]

lo chiedo solo perchè avevo inteso che il nostro utente ricerca una coppia di valori non solo un valore se ho capito bene lui vuole controllare che la coppia

ciccio,8 esista

in quel modo ne trova solo uno per volta.
avrò capito male

[TheAikon]

Ragazzi un grazie mille a tutti voi!!!

Data la mia poca esperienza in ambiente vb ho optato per questa soluzione:

Function Controllo(lngIdFattura As Long, strTipoFatt As String, myArray As Object) As Boolean
Dim i As Integer

For i = 0 To UBound(myArray)
If myArray(0, i) = lngIdFattura And myArray(1, i) = strTipoFatt Then
Controllo = False
Exit Function
End If
Next i

'Ridimensiono l'array
ReDim Preserve myArray(1, UBound(myArray) + 1)

myArray(0, UBound(myArray) + 1) = lngIdFattura
myArray(1, UBound(myArray) + 1) = strTipoFatt

Controllo = True

End Function


Nella routine dove sfoglio il recordset mi dichiaro l'array ed in base al valore di ritorno della function procedo o meno all'elaborazione del record.


P.S.

Non l'ho ancora testato...speriamo che almeno funzioni

[ciro78]

non so ma no nsono convinto che funzioni bene

[Jupy64]

Ciao, invece di un array, se usi l'oggetto Dictionary non fai prima e scrivi meno codice?

[Dardino]

Così forse funziona meglio...

Function Controllo(lngIdFattura As Long, strTipoFatt As String, myArray As Object) As Boolean

    Dim i As Integer
    
    For i = 0 To UBound(myArray)
        If myArray(0, i) = lngIdFattura And myArray(1, i) = strTipoFatt Then
            Controllo = False
            Exit Function
        End If
    Next i

'Ridimensiono l'array
    i = UBound(myArray) + 1
    ReDim Preserve myArray(1, i)

    myArray(0, i) = lngIdFattura
    myArray(1, i) = strTipoFatt

    Controllo = True

End Function