Newsgroup: it.comp.lang.visual-basic
Titolo: Listview isterica

Ciao a tutti,
ho una listview, su cui carico dei dati presi da un recordset. Applico un
ciclo loop. Il problema č che se eseguo il codice su alcuni items del
controllo, appare solo il codice (item), mentre le descrizioni contenute nei
subitems sono vuote.
La cosa pazzesca č che se eseguo il codice riga per riga in debug, tutto
funziona perfettamente.
Ho gią provato con un refresh finale, ma non serve a niente.
E' mai capitato a qualcuno una situazione simile? Uso VB6 sp5 su Win XP.
Simale

mai capitato....
posta il codice, sto lavorando proprio ora molto... profondamente con le
listview...

 E' mai capitato a qualcuno una situazione simile? Uso VB6 sp5 su Win XP.
Sì, con L'SP3 (ma non è detto che sia quello il problema).
Mai trovata una soluzione.
Il fatto è che ora uso dei PC con la tua stessa configurazione e pur 
lavorandoci parecchio con LV in modalità Report, il problema non mi si è 
più ripresentato.
Il problema è verificabile con il progetto sul sito comune ZipDir, che 
su XP ogni tanto va in errore (non ho mai avuto occasione di 
correggerlo) quando tenta di fare la Dir sui files nascosti che ogni 
tanto XP crea :(
Ciao

Ecco il codice:
se pensi che possa servire ti spedisco privatamente il form completo.
Grazie
Simale
P.S. Attento che a lavorare troppo ... profondamente sui controlli porta
alla pazzia... ;-)
Private Sub TrovaPrestazioni()
        On Error GoTo mistake
[...]
    intCounter = 1
    Do Until recPrestazioni.EOF
        With lvwFatture.ListItems
'Codice
            .Add , recPrestazioni![pre_Codice] & "a",
recPrestazioni![pre_Codice], _
                , "Anagrafica"
'Descrizione
            .Item(intCounter).SubItems(1) =
IFNULL_EMPTY(recPrestazioni![pre_Descrizione])
'ufficio
            .Item(intCounter).SubItems(2) =
IFNULL_EMPTY(recPrestazioni![pre_Ufficio])
'compenso
            .Item(intCounter).SubItems(3) =
IFNULL_EMPTY(recPrestazioni![pre_Compenso])
'tagliandi
            .Item(intCounter).SubItems(4) =
IFNULL_EMPTY(recPrestazioni![pre_Tagliandi])
            recPrestazioni.MoveNext
            intCounter = intCounter + 1
        End With
    Loop
    lvwFatture.Refresh
    db.Close
    Exit Sub
mistake:
    Debby.WriteStandardMsg Err
    Debby.WriteLog Format$(Now, "yyyymmdd" & ".log"),
"frmCercaDistinta.TrovaDistinte", _
         App.Path & "\log"
    On Error GoTo 0
'in questo caso esce direttamente dalla sub
    Exit Sub
End Sub
"GioX®" <NgOio...@libNOeSPAMro.it> ha scritto nel messaggio
news:hH7ob.78968$e6.28...@twister2.libero.it...


 tanto XP crea :(
Ma... Guarda... di quel problema della ListView non ho mai sentito... Avevo
quel problema con VB5 sotto WIN98 ma col VB6 non mi è mai successo neppure
con XP. Per l'istruzione Dir... Ho smesso di usarla con XP, si comporta
sempre in modo molto strano...
Antonio Mirarchi

...Per l'istruzione Dir... Ho smesso di usarla con XP, si comporta sempre
in modo molto strano...
Info (chiare), please!

> Info (chiare), please!
Mi fa il problema dei file nascosti di cui si è parlato. Ma mi crea problemi
anche con i files normalissimi! Per esempio: ho una cartella stracolma di
MP3, tento di fare Dir("D:\mp3\*.mp3")  e mi da errore: "Chiamata di routine
o di argomento non valida". Riprovo con un altra cartella di MP3 e funziona
tranquillamente. Altre volte funziona la prima Dir, poi se uso di nuovo una
cosa del tipo Prossimo = Dir (che dovrebbe restituire il file successivo),
mi da lo stesso errore... Però la cosa strana è che me lo fa solo su alcune
cartelle e solo sul disco che ho formattato con NTFS!
Antonio Mirarchi

[*Antonio Mirarchi* = 
st...@virgilio.it
 in
news:8M8ob.12113$
gA....@tornado.fastwebnet.it
] ha scritto:

Grazie, farò qualche prova, ma allo stato (visto che ne faccio un uso ...
sensibile) non ho notato problemi di sorta, nè gli utenti dell'applicativo
(con XP Home o Pro, con e senza SP1).
Non è che hai problemi col File System... ? (traduzione: disco sputtanato)
Prova a copiare paro-paro la cartella che ti crea problemi su una sua copia
e prova su quest'ultima...
No, non basterebbe per dormire tranquilli, la cartella con problemi forse
non è correttamente director-ata.

 Ho già provato con un refresh finale, ma non serve a niente.


 Ho già provato con un refresh finale, ma non serve a niente.


 ha scritto nel messaggio
news:Ae8ob.12038$gA....@tornado.fastwebnet.it...

Premesso che sono già arrivato alla pazzia grazie alla listview, e tra un pò
posterò il mio problema
In teoria dovrebbe funzionare in questo modo....:((
Io quando devo caricare dati nelle listview faccio in questo modo:
lvw(i) è una matrice di listview
Do Until rsAnalisi.EOF
   lvw(i).ListItems.Clear
   Set li = lvw(i).ListItems.Add(, , rsAnalisi.fields(0))
   li.SubItems(1) = rsAnalisi.fields(1)
   li.SubItems(2) = rsAnalisi.fields(2)
   li.SubItems(3) = rsAnalisi.fields(3)
   rsAnalisi.movenext
Loop
non mi ha mai dato problemi...
ho la tua stessa configurazione e l'ho testato su tutti i SO win
ciao!

> Non è che hai problemi col File System... ? (traduzione: disco sputtanato)
Si: è possibile e probabile. Praticamente sul computer ho 2 dischi: un nuovo
80 Gb 7200 rmp piatto singolo, e un vecchio 40 GB 5400 rpm multipiatto... Il
1° disco non mi da nessun problema, il 2° (dove poi ho gli MP3) invece si
pianta ogni tanto sulla lettura/scrittua anche di file piccoli... Però il
fatto è che ho provato sia a passarlo sotto scandisk che sotto Norton
DiskDoctor... Non mi da errori neppure sul test della superficie! Ogni tanto
lo deframmente ma comunque non noto cambiamenti... Non so... Proprio non so.
Certo: è un disco vecchio di 3 anni, questo potrebbe dire molto.
Antonio Mirarchi

Incredibilmente non mi funziona neanche col tuo sistema. In effetti la cui
differenza principale rispetto al mio  consiste nell'omissione della "key"
dell'item. A questo punto ne deduco che dipende dai soltanto dati. Infatti
sostituendo i miei dati con altre stringhe, oppure con campi vuoti, il
problema si risolve...
La pazzia è propria di ogni buon programmatore.
Simale
"GioX®" <NgOio...@libNOeSPAMro.it> ha scritto nel messaggio
news:H9aob.79446$e6.28...@twister2.libero.it...
