ogni recordset è formato da 50 textField()
cosi composto
01.02.03.04.05
06.07.08.09.10
11.12.13.14.15
16.17.18.19.20
21.22.23.24.25
26.27.28.29.30
31.32.33.34.35
36.37.38.39.40
41.42.43.44.45
46.47.48.49.50
questo ciclo :
questo crea per ogni riga 10 accoppiamenticodice:Dim i As Integer Dim j As Integer Dim k As Integer Dim z As Integer List3.Clear z = 0 For i = 1 To 46 Step 5 For j = i To j + 4 For k = j + 1 To i + 4 sb = adoPrimaryRS(j) st = adoPrimaryRS(k)
esempio 1° riga
01.02.03.04.05
crea : 1+2=3 ; 1+3=4 ect. ect
cioè
3-4-5-6-5-6-7-7-8-9
si fa per ogni riga ottenendo 100 volari
poi abbiamo nel codice
trova fra queste 100 nuovi valori, tutte le coppie che hanno 30 e li scrive nella listboxcodice:amb1 = Abs(sb - st) If amb1 > 45 Then amb1 = 90 - amb1 If amb1 = 30 Then
ovviamente quando viene ritrovata piu di una coppia con quel valore
quindi 2,3,4,5 ecct.. deve fare dei sempli calcoli fra le varie coppie
nella listbox vengono rappresentati tutti con
sb,st
di conseguenza non riesco a capire
esempio se vengono ritrovati due coppie
sb,st
sb,st
dovrei per esempio sommare
sb della 1° coppia con st della 2° coppiaed avere il 3° valore
e viceversa
se faccio sb+st, mi somma i valori della sola 1° coppia e non incrociati
avvole la ricerca ottiene molte coppie ritrovate 3,4,5 avvolte
se trova 4 valori, i calcoli tra di loro alla fine devono esssere 6
capito cosa intendo?
scusa per il linguaggio poco tecnico o per nulla tecnico
ciao e grazie