add new row in listview

[sal21]

Peraphs i'm stupid...
I need to append a new row, with "9999" in all cells, to the last filled row...

note:
The number of column are vriable and not fixed

my poor test:

Code: Select all

Dim L As Integer
    L = Me.ListView1.ListItems.Count

    Set ITMX = Me.ListView1.ListItems.Add(, , "999")  ' rifdoc
    For I = 1 To Me.ListView1.ColumnHeaders.Count - 1
        ITMX.SubItems(I) = "999"
    Next I

[HansV]

Change the line

Code: Select all

        ITMX.SubItems(I) = "999"

to

Code: Select all

        ITMX.SubItems.Add Index:=I, Text:="999"

[sal21]

Change the line

Code: Select all

        ITMX.SubItems(I) = "999"

to

Code: Select all

        ITMX.SubItems.Add Index:=I, Text:="999"

error argument not optional

[HansV]

Sorry, use ListSubItems instead of SubItems.

And if you want to fill the last column too, use

Code: Select all

    For I = 1 To Me.ListView1.ColumnHeaders.Count