Archie
May 14th, 2001, 08:35 AM
Does anybody know what changes I have to make to the code below so that the first column in the list view does not print? Thank you.
For intColumn = 0 To mrsSelect.Fields.Count - 1
Set colNew = lvwDisplay.ColumnHeaders.Add(, ,
mrsSelect(intColumn).Name)
Next intColumn
lvwDisplay.View = lvwReport
mrsSelect.MoveFirst
intRow = 1
Do While Not mrsSelect.EOF
Set itmx = lvwDisplay.ListItems.Add(intRow, , mrsSelect.Fields(0))
For intColumn = 1 To mrsSelect.Fields.Count - 1
itmx.ListSubItems.Add , , mrsSelect.Fields(intColumn) & " "
Next intColumn
mrsSelect.MoveNext
intRow = intRow + 1
Loop
Archie Kantzavelos
Archie Kantzavelos
For intColumn = 0 To mrsSelect.Fields.Count - 1
Set colNew = lvwDisplay.ColumnHeaders.Add(, ,
mrsSelect(intColumn).Name)
Next intColumn
lvwDisplay.View = lvwReport
mrsSelect.MoveFirst
intRow = 1
Do While Not mrsSelect.EOF
Set itmx = lvwDisplay.ListItems.Add(intRow, , mrsSelect.Fields(0))
For intColumn = 1 To mrsSelect.Fields.Count - 1
itmx.ListSubItems.Add , , mrsSelect.Fields(intColumn) & " "
Next intColumn
mrsSelect.MoveNext
intRow = intRow + 1
Loop
Archie Kantzavelos
Archie Kantzavelos