LISTVIEW

USUARIO.EXCLUIDOS 30/09/2004 19:07:31
#44116 Resposta escolhida

Utilize o objeto ListItem e a propriedade SubItems da listview.
ListItem para adicionar dados à  primeira coluna e SubItems para definir o valor para as demais colunas, conforme exemplo abaixo:

' Adicionando colunas de cabeçalho
Dim mCampo As ADODB.Field
listview1.ColumnHeaders.Clear
For Each mCampo In rs.Fields
listview1.ColumnHeaders.Add , , mCampo.Name
Next


' Adicionando registros na listview1.
Dim mItem As ListItem
Dim mIX As Integer
Do While Not rs.EOF
' Adiciona item na primeira coluna
Set mItem = lvw(Index).ListItems.Add(, , rs.Fields(0))

' Adiciona itens nas demais colunas
For mIX = 0 To rs.Fields.Count - 1
If Not IsNull(rs.Fields(mIX)) Then _
mItem.SubItems(mIX) = rs.Fields(mIX)
Next mIX

rs.MoveNext
Loop

USUARIO.EXCLUIDOS 30/09/2004 19:29:34
#44120

Uma pequena correção:
Troque: Set mItem = lvw(Index).ListItems.Add(, , rs.Fields(0))
Por: Set mItem = listview1.ListItems.Add(, , rs.Fields(0))

USUARIO.EXCLUIDOS 01/10/2004 19:31:52
#44309

tsk tsk tsk [S81]
Como você não enxergou isso na resposta que dei ?
[S95]]