COLUNAS NO LISTBOX

WEBIER 07/03/2012 21:58:01
#396643
tenho o seguinte código:

    If txtCodBarra.Text <> [Ô][Ô] Then
        lstBusca.Visible = True
        lstBusca.Clear
        Call Abrir_BancodeDados
        SQL = [Ô]SELECT DESCRICAO FROM PRODUTOS WHERE DESCRICAO like [ô]*[Ô] & txtCodBarra.Text & [Ô]*[ô][Ô]
        Set RS = BD.OpenRecordset(SQL, dbOpenSnapshot)
        
        If RS.BOF = True And RS.EOF = True Then lstBusca.Visible = False
        Do While Not RS.EOF
        lstBusca.AddItem RS!DESCRICAO
        RS.MoveNext
        Loop
    Else
        lstBusca.Visible = False
    End If


então no LISTBOX aparece o campo RS!DESCRICAO.....

como faço para apos aparecer a [Ô]descrição[Ô] do produto, apareça tambem os campos QUANT e VALOR

EXEMPLO:
SABAO...........20...........r$ 2,20
AÇUCAR.........55...........r$ 1,80
CASTELO 07/03/2012 22:35:33
#396645 Resposta escolhida
Salve WEBIER

Eu usaria o VbTab, e não se esqueça de adicionar os novos campos no SELECT.


If txtCodBarra.Text <> [Ô][Ô] Then
lstBusca.Visible = True
lstBusca.Clear
Call Abrir_BancodeDados
SQL = [Ô]SELECT DESCRICAO, QUANT, VALOR FROM PRODUTOS WHERE DESCRICAO like [ô]*[Ô] & txtCodBarra.Text & [Ô]*[ô][Ô]
Set RS = BD.OpenRecordset(SQL, dbOpenSnapshot)

If RS.BOF = True And RS.EOF = True Then lstBusca.Visible = False
Do While Not RS.EOF
lstBusca.AddItem RS!DESCRICAO & VbTab & RS!QUANT & VbTab & RS!VALOR
RS.MoveNext
Loop
Else
lstBusca.Visible = False
End If

Corrigi o VALOR
WEBIER 07/03/2012 23:00:39
#396646
Salve, Castelo

Obg
CASTELO 07/03/2012 23:03:42
#396647
Citação:

:
Salve, Castelo

Obg



Webier a única questão é se você quer um alinhamento!?

Pois ai será necessário determinar um limite de caracteres e realizar a contagem do tamanho da string.
WEBIER 07/03/2012 23:06:16
#396649
Interessante...nao havia pensado nisso
como seria?
WEBIER 07/03/2012 23:27:07
#396651
Citação:

:
:
Salve, Castelo

Obg

Webier a única questão é se você quer um alinhamento!?

Pois ai será necessário determinar um limite de caracteres e realizar a contagem do tamanho da string.



Agora que eu vi que a coluna Descrição tem produtos com o nome grande e fica tudo fora de alinhamento...

como faço para determinar o limite de caracteres de cada coluna?
CASTELO 07/03/2012 23:49:44
#396654
Citação:

:
:
:
Salve, Castelo

Obg

Webier a única questão é se você quer um alinhamento!?

Pois ai será necessário determinar um limite de caracteres e realizar a contagem do tamanho da string.

Agora que eu vi que a coluna Descrição tem produtos com o nome grande e fica tudo fora de alinhamento...

como faço para determinar o limite de caracteres de cada coluna?



WEBIER

Uma forma prática seria usar o LEFT(string,nº de caracteres)

Assim:


lstBusca.AddItem LEFT(RS!DESCRICAO,10) & VbTab & RS!QUANT & VbTab & RS!VALOR

Vai cortar a string quando atingir 10 caracteres.
CASTELO 07/03/2012 23:52:17
#396655
Meu amigo... tenho que ir agora, espero que alguém possa continuar a lhe auxiliar.

Té +
MARCELO.TREZE 08/03/2012 08:11:00
#396660
Olha minha opinião é que vc usa-se ou um FLEXGRID ou um LISTVIEW, assim fica mais elegante pois para alinhar no listbox, vc teria que usar uma fonte como Courier New que possui dimensões iguais, colocar códigos para o alinhamento, etc.
CASTELO 08/03/2012 10:22:49
#396664
Concordo MARCELO-TREZE!

Eu utilizo em listview em modo relatório e atende bem a minha necessidade.

WEBIER tenta assim: coloca um listview em sua aplicação:

ListView1.View = lvwReport
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
Dim ItemLst As ListItem
ListView1.ColumnHeaders.Add , , [Ô]Descrição[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Quantidade[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Valor[Ô]

If txtCodBarra.Text <> [Ô][Ô] Then
Call Abrir_BancodeDados
SQL = [Ô]SELECT DESCRICAO, QUANT, VALOR FROM PRODUTOS WHERE DESCRICAO like [ô]*[Ô] & txtCodBarra.Text & [Ô]*[ô][Ô]
Set RS = BD.OpenRecordset(SQL, dbOpenSnapshot)

Do While Not RS.EOF
[ô]primeira coluna
Set ItemLst = ListView1.ListItems.Add(, , RS!DESCRICAO)
[ô]segunda e terceira coluna, que são sub itens da coluna 1
ItemLst.SubItems(1) = RS!QUANT
ItemLst.SubItems(2) = RS!VALOR
RS.MoveNext
Loop
End If

Acho que tá certo, tô no trampo e não tenho o vb6 aqui para testar...
WEBIER 09/03/2012 23:27:15
#396845
Citação:

:
Concordo MARCELO-TREZE!

Eu utilizo em listview em modo relatório e atende bem a minha necessidade.

WEBIER tenta assim: coloca um listview em sua aplicação:

ListView1.View = lvwReport
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
Dim ItemLst As ListItem
ListView1.ColumnHeaders.Add , , [Ô]Descrição[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Quantidade[Ô]
ListView1.ColumnHeaders.Add , , [Ô]Valor[Ô]

If txtCodBarra.Text <> [Ô][Ô] Then
Call Abrir_BancodeDados
SQL = [Ô]SELECT DESCRICAO, QUANT, VALOR FROM PRODUTOS WHERE DESCRICAO like [ô]*[Ô] & txtCodBarra.Text & [Ô]*[ô][Ô]
Set RS = BD.OpenRecordset(SQL, dbOpenSnapshot)

Do While Not RS.EOF
[ô]primeira coluna
Set ItemLst = ListView1.ListItems.Add(, , RS!DESCRICAO)
[ô]segunda e terceira coluna, que são sub itens da coluna 1
ItemLst.SubItems(1) = RS!QUANT
ItemLst.SubItems(2) = RS!VALOR
RS.MoveNext
Loop
End If

Acho que tá certo, tô no trampo e não tenho o vb6 aqui para testar...



Coloquei o Listview e ficou show!

como eu faço para configurar a largura de cada coluna?
como eu faço para ocultar umas das colunas?
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar