Ragazzi, non sono un fenomeno ma non sono nemmeno un imbecille completo, abbiata pietà...
OVVIO che il codice non è scritto subito prima (my fault, sorry), e che tra i due codici c' è un If ... Then TotalCrt.Add(......)
Postare codice "intorno" alla riga incriminata non serve, perché in tutta la Sub non si azzera TotalCrt (e l' errore è prorio quello: TotalCrt che va a nothing tra la chiamata al BGW e quattro righe di elaborazione nel BWG)...
Riguardo al GoTo... è perché mai dovrei toglierlo? Ci sono affezionato (l' affetto è tutto nella vita) e qualche numero di riga non mi dà il minimo fastidio... anzi, mi ricorda i bei tempi della gioventu. Certo, mi costasse 100.000 cicli del processore... ma non mi pare sia così.
Comunque ho risolto inserendo nel BGW cone primissime righe:
codice:Dim FlagCrt AsNewList(OfInteger)(TotalCrt) If FlagCrt.Count <> 2 Then Return
ed eseguendo i successivi calcoli su FlagCrt anziché su TotalCrt.


(45? ancora i numeri di riga? )
Rispondi quotando
