With ctl .ListItems.Clear .ColumnHeaders.Add , , "Beskrivelse" .ColumnHeaders.Add , , "Kodetype" .View = lvwReport End With
og herefter
Set itm = ctl.ListItems.Add(, , rs(Felt1)) itm.SubItems(1) = rs(Felt2)
og det virker fint, men de to kolonner fylder ikke listviewet ud, så derfor vil jeg gerne kunne øge kolonnebredden af den første kolonne, da denne har mest information.
Hvis du kører listview.ColumnHeaders.Item(1).Width= 1000 efter det øverste del i dit eksempel, så kommer den ikke og siger index out of bounds, hvor havde du placeret linie, da du afprøvede det?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.