LISTVIEW - NUMERAR LINHAS
Olá gente,
Tenho um listview (vb6/access) que puxa dados do BD, mas preciso adicionar uma coluna a esquerda que, em tempo de execução, mostre o número de cada linha: linha1, linha2, linha3, ...Essa numeração pretendo levar para o relatório em data report. é isso ai...alguma idéia??
Alan
Tenho um listview (vb6/access) que puxa dados do BD, mas preciso adicionar uma coluna a esquerda que, em tempo de execução, mostre o número de cada linha: linha1, linha2, linha3, ...Essa numeração pretendo levar para o relatório em data report. é isso ai...alguma idéia??
Alan
Valeu pessoal, mas consegui dessa maneira:
Dim i As Integer
For i = 0 To rs.RecordCount - 1
Set LIClientesID = ListView1.ListItems.Add(, [Ô]A[Ô] & rs(0), rs(0))
If Not IsNull(rs(0)) Then
[ô]LIClientesID.SubItems(1) = ListView1.ListItems.Count
LIClientesID.SubItems(1) = [Ô][Ô] & rs!Nome
LIClientesID.SubItems(2) = [Ô][Ô] & rs!Destino
LIClientesID.SubItems(3) = [Ô][Ô] & rs!Parada
LIClientesID.SubItems(4) = [Ô][Ô] & rs!HoraMarcada
LIClientesID.SubItems(5) = [Ô][Ô] & rs!Confirma
LIClientesID.SubItems(6) = ListView1.ListItems.Count [ô] Adicionei essa coluna, no final, tudo bem, arrumo depois no datareport
End If
rs.MoveNext
Next i
Até mais, vou encerrar
Dim i As Integer
For i = 0 To rs.RecordCount - 1
Set LIClientesID = ListView1.ListItems.Add(, [Ô]A[Ô] & rs(0), rs(0))
If Not IsNull(rs(0)) Then
[ô]LIClientesID.SubItems(1) = ListView1.ListItems.Count
LIClientesID.SubItems(1) = [Ô][Ô] & rs!Nome
LIClientesID.SubItems(2) = [Ô][Ô] & rs!Destino
LIClientesID.SubItems(3) = [Ô][Ô] & rs!Parada
LIClientesID.SubItems(4) = [Ô][Ô] & rs!HoraMarcada
LIClientesID.SubItems(5) = [Ô][Ô] & rs!Confirma
LIClientesID.SubItems(6) = ListView1.ListItems.Count [ô] Adicionei essa coluna, no final, tudo bem, arrumo depois no datareport
End If
rs.MoveNext
Next i
Até mais, vou encerrar
Tópico encerrado , respostas não são mais permitidas