domingo, 20 de dezembro de 2009

ListView no Access

Esta vou deixar aqui para futuras consultas.
Utilizo-o porque num ListBox não tem como alinhar números à direita.
Estranhamente num dos códigos, às vezes a primeira coluna é a zero (0) e em outras é 1.
Bem, se alguém souber como resolver os dois problemas (alinhar números à direita no ListBox e a questão da primeira coluna no ListView), me manda um e-mail.


Sub carrega_listview2()
With Me.Listview2
.View = lvwReport
.GridLines = True
.FullRowSelect = True
.ListItems.Clear
.ColumnHeaders.Clear
End With

'Cabeçalho do ListView
With Me.Listview2.ColumnHeaders
.Add , , "N/Número", 1500, lvwcolumright
.Add , , "Cartório", 1300, lvwColumnLeft
.Add , , "Protocolo", 1300, lvwcolumright
.Add , , "Vencimento", 1300, lvwColumnLeft
.Add , , "Valor", 1000, lvwcolumright
End With

'Adicionar itens
rst.MoveFirst
Do Until rst.EOF
Set lstItem = Me.Listview2.ListItems.Add()
lstItem.Text = Format(rst!Nosso_Numero, "000000000000000")
lstItem.SubItems(1) = Format(rst!numero_tabe_protesto, "00")
lstItem.SubItems(2) = Format(rst!numero_protocolo, "0000000000")
lstItem.SubItems(3) = rst!data_venc
lstItem.SubItems(4) = Format(rst!vl_titulo / 100, "#0.00")

rst.MoveNext
Loop
rst.Close
End Sub

Nenhum comentário:

Pesquisar este blog

Arquivo do blog

Quem sou eu

Minha foto
Administrador de Empresas/Técnico em Processamento de Dados. Microsoft Office User Specialist - Excel Proficient. Pós-graduado em Business Intelligence.