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