LISTBOX - COMO ALIMENTAR COM DADOS DE UMA TABELA

USUARIO.EXCLUIDOS 20/09/2006 14:59:22
#172675
Citação:

ARTEDOMINIO escreveu:
Legal, assim deu certo embora nao foram apresentados no listbox do jeito que eu queria, gostaria que os ítens do pedido fossem apresentados como o exemplo a seguir:

codigo descricao qtd valor
0012 Pizza mussarela 1 R$ 10,00

Com o codigo postado como exemplo os campos foram apresentados um abaixo do outro como o ex.:

0012
Pizza mussarela
1
R$ 10,00

se tiver mais alguma dica agradeço

abr



Carinha, vc não consiguirá exibir dessa forma utilizando o ListBox, terás de usar outro componente como o ListView, FlexGrid, DataGrid ou DBGrid. Ou ainda o SGrid, que eu considero o melhor, só que para novatos, recomendo que comece pelo FlexGrid, um exemplo (com ADO):

  • Faça referência ao FlexGrid: vá em Project\Components (Ctrl + T), selecione na lista o item "Microsoft FlexGrid Control 6.0"
  • Depois adicione um FlexGrid em seu form e tente o seguinte código:

    With MSFlexGrid1
    'Para setar o FixedRows, deve ter ao menos o valor do FixedRows + 1 linha,
    'então colocamos duas linhas e abaixo removemos uma
    .Rows = 2
    'Uma linha fixa, q é a de informação da coluna
    .FixedRows = 1
    'Apenas uma linha, q é a de informação da coluna
    .Rows = 1
    'Informa que haverá 4 colunas
    .Cols = 4
    'Criar as colunas (as colunas são as linhas com Index 0)
    .TextMatrix(0, 0) = "Código"
    .TextMatrix(0, 1) = "Produto"
    .TextMatrix(0, 2) = "Quantidade"
    .TextMatrix(0, 3) = "Valor"

    CONSULTASQL = "SELECT * FROM ITENS_PEDIDO where num_pedido = '" & (NUMPEDIDO) & "'"
    Set Tbsql = BANCO.Execute(CONSULTASQL)

    'Loop enquanto não chegar no último registro,
    'qdo chegar, Tbsql.EOF retornará True e sairá do Loop
    Do While Not Tbsql.EOF
      'Adiciona uma linha (O valor informado será adicionado na primeira coluna)
      .AddItem Tbsql("COD_ITEM_PEDIDO")
      'Informa os valores das próximas colunas
      .TextMatrix(.Rows - 1, 1) = Tbsql("DESC_PRODUTO")
      .TextMatrix(.Rows - 1, 2) = Tbsql("QTD_PRODUTO")
      .TextMatrix(.Rows - 1, 3) = Tbsql("VALOR_ITEM_PEDIDO")
      'Procura o próximo registro
      Tbsql.MoveNext
    Loop
    End With


    Qualquer dúvida poste...flw
    •
    Página 2 de 2 [13 registro(s)]
    Tópico encerrado , respostas não são mais permitidas
    Voltar