Contatori

[Magicolotto]

Ciao ragazzi ho un piccolissimo problema

in un form ho 50 txtFields()

in queste compaiono solo numeri presi da archivio access

in essi dovrei ricercare dele condizioni

a tal proposito ho scritto un contatore che è il seguente :

For i = 1 To 41 Step 5 ' parte a contare da bari fino a torino
For j = i To j + 4
For u = i + 5 To 46 Step 5 'questa parte da cagliari fino a venezia
For p = u + 1 To u + 4
numero1= adoPrimaryRS(j)
numero2= adoPrimaryRS(p)

condizione = abs( numero1-numero2)
if condizione= 30 then[/QUOTE]

praticamente come si leggesopra la differenze deve essere = a 30

cmq non trova tutti i casi allego immagine dove ho evidenziato con cerchio rosso i numero

9 e 39
39-9 =30

essi non vengono rilevati

non riesco a capire il xchè

mi aiutereste??

[Magicolotto]

permettetemi un UP

[oregon]

Non hai detto quale deve essere il criterio del confronto ...

Quale numero deve essere confrontato con quale altro?

[Magicolotto]

I TXTFIELD SONO DISPOSTI IN QUESTO MODO :

01-02-03-04-05
06-07-08-09-10
11-12-13-14-15
16-17-18-19-20


dovrei controllare
singolarmente i numeri per ogni riga, di conseguenza ho fatto STEP 5

1 col sei , poi col sette e via dicendo

2 col 6
2 col 7

ect


la differentra tra i due deve essere 30, ma il 30 varia in base alla ricerca che faro effettuare

[oregon]

1 con 6 ... fino a 1 con ?

2 con 6 ... fino a 2 con ?

E poi ...

6 con ?

[Magicolotto]

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


ECCO COME SONO DISPOSTI io ho fatto cosi

For i = 1 To 41 Step 5 ' parte a contare da bari fino a torino
For j = i To j + 4
For u = i + 5 To 46 Step 5 'questa parte da cagliari fino a venezia
For p = u + 1 To u + 4
numero1= adoPrimaryRS(j)
numero2= adoPrimaryRS(p)



pero non visualizza alcuni risultati

da 1 a 6 fino a 50

[oregon]

Non mi ripetere quello che gia' mi hai detto ... rispondi alla domanda ...

[Magicolotto]

Originariamente inviato da oregon
1 con 6 ... fino a 1 con ?

2 con 6 ... fino a 2 con ?

E poi ...

6 con ?

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
il 6 con 11---->12-13-14-15
poi continua
6 con 16----> 17-18-19-20
fino a 6 con 46-47-48-49-50

poi il 7con 11 -12-13-14-15


poi11 con 16-17-18-19-20


e cosi via

in linea di massima come ho fatto io con il contatore che ho esposto

grazie

[oregon]

I cicli che hai indicato non sono corretti. In linea di massima dovrebbe essere

    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    
    For i = 1 To 41 Step 5
        For j = i To i + 4
            For k = i + 5 To 50
                numero1 = adoPrimaryRS(j)
                numero2 = adoPrimaryRS(k)
                condizione = Abs(numero1 - numero2)
                If condizione = 30 Then
                    ' .......
                End If
            Next k
        Next j
    Next i

[Magicolotto]

ora sono a lavoro

stasera la prima cosa che faccio lo provo

e poi ti dico

cmq grazie sempre gentile