Errore List View

Question

Ciao,

ho una listview che può essere caricata con i dati dei prodotti o quello delle fabbriche.

La prima volta che esegue il codice, lo fa per i prodotti e carica correttamente le intestazioni di colonna.

Se però poi scelgo le fabbriche, alla prima colonna inserita mi da errore 380 Invalid property value.

Sotto il codice

Come mai?

Grazie

S.

Private Sub Inizializza_lvProdotti()

    lvProdotti.View = lvwReport

    lvProdotti.LabelEdit = lvwAutomatic

    lvProdotti.AllowColumnReorder = True

    lvProdotti.FullRowSelect = True

    lvProdotti.Gridlines = True  'mostra una sottile griglia'

    lvProdotti.SortOrder = lvwAscending

    lvProdotti.ColumnHeaders.Clear

    'Carico i prodotti o le fabbriche in base a quello scelto

    If opProdotti.Value = True Then

        lvProdotti.ColumnHeaders.Add 1, "Fabbrica", "Fabbrica", 100, Left

        lvProdotti.ColumnHeaders.Add 2, "Prod_Des", "Prodotto", 100, Left

        lvProdotti.ColumnHeaders.Add 3, "Linea_Des", "Linea", 100, Left

        lvProdotti.ColumnHeaders.Add 4, "Isin", "Isin", 100, Left

        lvProdotti.ColumnHeaders.Add 5, "AttFinID", "Att Fin ID", 100, Left

    Else

        lvProdotti.ColumnHeaders.Add 1, "Fabbrica", "Fabbrica", 200, Left                       <<<<<<<< 380 Invalid property value

        lvProdotti.ColumnHeaders.Add 2, "FabCod", "Cod. Aggregazione", 100, Left

        lvProdotti.ColumnHeaders.Add 3, "Emitt_ID", "Emittente ID", 100, Left

    End If

End Sub

Answer 1

Darth_Pig,

Prova a sostituire

        lvProdotti.ColumnHeaders.Add 1, "Fabbrica", "Fabbrica", 200, Left                       <<<<<<<< 380 Invalid property value

con:

    Me.lvProdotti.ColumnHeaders.Add _

            Index:=1, Key:="Fabbrica", Text:="Fabbrica", _

            Width:=200, Alignment:=lvwColumnLeft

===

Regards,

Norman

Answer 2

Non posso provare perché sulla mia macchina ho Office 64 bit che non supporta la ListView (e questo dovrebbe far suonare un campanello di allarme, stai utilizzando un controllo NON standard).

Da quello che vedo, prima hai 5 colonne, poi 3. Il clear del solo Header non è sufficiente.

Answer 3

Ciao Norman,

grazie mille. La modifica ha risolto il problema.

S.

Answer 4

Ciao Mauro,

la scritta "<<<<<<<< 380 Invalid property value" l'ho inserita io per far capire la riga in cui va in errore.

Ma nel codice originale non c'è.

In poche parole rarica tutto correttamente la prima volta. Poi se però voglio ricarica va in errore alla prima ColumnHeaders.Add, sia che sia della IF che dell'ELSE.

Eppure non ho ripulito tutto con il lvProdotti.ColumnHeaders.Clear?

S.

Answer 5

Io vedo un *value*.

Hai provato ad eliminarlo?