Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per compilazione di Listwiew

Copiando quà e là, il mio lavoretto stà leeeentamente procedendo, ora però
mi sono piantato...
Funziona tutto sino al caricamento dei titoli nelle ColumnHeaders, ma poi
non riesco a caricare correttamente
i dati sotto alle colonne giuste (li mette tutti sotto la 1a), e nemmeno
(secondaria importanza) fissare un tooltip per
ogni ColumnHeaders...
..per questo chiedo aiuto...
PS. F1 l'ho usato...
Private Sub CaricaCaratteristicheGruppi()
    Dim rCarattGruppi As ADODB.Recordset
    Dim SQL As String
    Dim LI As ListItem 'Serve?
    Dim itmX As ListItem 'al posto di LI
'        LI = itmX
        Dim ncaratt As String
    Dim Conta As Integer
    Dim nrcampiintabella As Integer
    Dim Titolo As String
    Dim Valore As String
'Dichiarazioni per caricare gli ordini
    Dim rOrdini As ADODB.Recordset
    Dim SQLordini As String
    SQLordini = "select * from Ordini where Gruppo= '" & ultimoselezionato &
"' Order BY Gruppo"     '13-4'
    Set rOrdini = New ADODB.Recordset
    rOrdini.Open SQLordini, Db, adOpenKeyset, adLockReadOnly
    Debug.Print SQLordini
'Fine dichiarazioni per caricare gli ordini
'--------------------------------------------------------------------------
'inizia a scrivere i "titoli" nelle ColumnHeaders
    lstGruppi.Clear
    lwCaratt.ListItems.Clear
    lwCaratt.ColumnHeaders.Clear
    SQL = "SELECT * FROM CaratteristicheGruppi where Gruppo = '" &
ultimoselezionato & "'"
    ultimoselezionato = ""
    Set rCarattGruppi = New ADODB.Recordset
    rCarattGruppi.Open SQL, Db, adOpenKeyset, adLockReadOnly
    If rCarattGruppi.RecordCount > 0 Then
        rCarattGruppi.MoveFirst
        nrcampiintabella = rCarattGruppi.Fields.Count
           Do While Not rCarattGruppi.EOF
                For Conta = 1 To (nrcampiintabella - 4)
                    If Not IsNull(rCarattGruppi.Fields("caratt" &
Conta).Value) Then
                        Titolo = rCarattGruppi.Fields("caratt" &
Conta).Value
                        lwCaratt.ColumnHeaders.Add.Text = Titolo
                            'lwCaratt.ColumnHeaders.ToolTipText = Titolo
'??come posso mettere il tooltip in ogni colonna??
                    End If
                Next Conta
                rCarattGruppi.MoveNext
            Loop
    End If
'finito di scrivere i "titoli" nelle ColumnHeaders
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
        ' Inizio compilazione ListView
            If rOrdini.RecordCount > 0 Then
                rOrdini.MoveFirst
                nrcampiintabella = rOrdini.Fields.Count
                   Do While Not rOrdini.EOF
                        For Conta = 1 To (nrcampiintabella - 4)
                            If Not IsNull(rOrdini.Fields("caratt" &
Conta).Value) Then
                                Valore = rOrdini.Fields("caratt" &
Conta).Value
                                lwCaratt.ListItems.Add.Text = Valore
                            End If
                        Next Conta
                        rOrdini.MoveNext
                    Loop
            End If
--------------------------------------------
"Che la vostra memoria non s'imboli
  nel primo mondo da l'umane menti,
  ma s'ella viva sotto molti soli "
--------------------------------------------
molte onorevoli grazie a Voi
^____^
Luca

 PS. F1 l'ho usato...
[SNIP]
Per quanto riguarda i tooltips, credo non si possa fare, perlomeno non con
le proprieta' esposte normalmente dal ListView
Per quanti riguarda i dati invece, rifai un giro di F1 e dai un'occhiata
alla proprieta' SubItems (vecchia versione del ListView) oppure ListSubItems
(nuova versione) dell'oggetto ListItem
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 (nuova versione) dell'oggetto ListItem
...l'esempio di subitems mi ha salvato... fiiiuuu adesso funzia..
..per i tooltips non mi dai speranza?  altre strade?
grazie ancora
;-)