ciao ragazzi
ho un archivio access composto in 50 texbox , la queri che restituisce i dati ad ognuno è
adoPrimaryRS da 1 a 50 e restuisce i valori nell'archivio
devrei suddividere la ricerca in 10 parti ognuna composta da 5
quindi avrei composto cosi la lettura

01-02-03-04-05 gruppo b
06-07-08-09-10 gruppo c
11-12-13-14-15 gruppo f
16-17-18-19-20 gruppo g
21-22-23-24-25 gruppo m
26-27-28-29-30 gruppo n
31-32-33-34-35 gruppo p
36-37-38-39-40 gruppo r
41-42-43-44-45 gruppo t
46-47-48-49-50 gruppo v


grazie all'aiuto che ho avuto nel forum...( grazie) si è riuscito a leggere le prime texbox dell'archivio cioè da uno a cinque, con la restituzione in una LISTBOX1 dei risultati, ecco come :







codice:
Private Sub Elabora_Click()
    
   Dim ib As Integer
    Dim nb(1 To 5) As Integer
    Dim jb As Integer
    Dim kb As Integer
    Dim distb(1 To 10) As Integer
    Dim rb(1 To 9) As Integer

    ' INIZIALIZZA N PER OGNI RUOTA IB( CONTA A BARI, IC CONTA CAGLIARI) NB( NUMERI DI BARI) NC ( NUOMERIDI CAGLIARI) ECT . ECT.
    'ruota di bari
    For ib = 1 To 5
        nb(ib) = adoPrimaryRS(ib)
    Next ib


    ' calcola le DISTANZE bari
    kb = 1
    For ib = 1 To 4
        For jb = ib + 1 To 5
            distb(kb) = Abs(nb(ib) - nb(jb))
            If distb(kb) > 45 Then distb(kb) = 90 - distb(kb)
            kb = kb + 1
        
        Next jb
    Next ib
    '----------------------------

    '---BARI qui troviamo i due numeri che compongono la distanza 30 sulla ruota
    List1.Clear
    For kb = 1 To 10
        If distb(kb) = 21 Then
            Select Case kb
                Case 1 To 4
                    rb(1) = nb(1)
                    rb(2) = nb(kb + 1)
                Case 5 To 7
                    rb(1) = nb(2)
                    rb(2) = nb(k - 2)
                Case 8 To 9
                    rb(1) = nb(3)
                    rb(2) = nb(kb - 4)
                Case 10
                    rb(1) = nb(4)
                    rb(2) = nb(5)
                End Select
                 List1.AddItem CStr(rb(1)) & " " & CStr(rb(2))
                End If
                Next
            End Sub
ora dovrei estendere la ricerca anche alle altre righe

cio da
6 to 10
11 to 15
16 to 20
ect ect
incrociando fra di loro la ricerca assegnando i gruppi come sopra
b-c
b-f
b-g
b-m
b-n
b-p
b-r
b-t
b-v
c-f
c-g
c-m
c-n
ect ect

ridando il risultato nella listbox


se è possibile sempre

grazie comunque





visual basic 6