Ir ao conteúdo
  • Cadastre-se

Dados da Tabela na ListView


Seingalt

Posts recomendados

Olá pessoal , tudo jóia ?

Eu estou tentando carregar os dados da Tabela para o ListView, estou fazendo assim :

Código:

procedure TformEstoque.FormShow(Sender:TObject)

var

lista : TlistItem;

begin

lista := ListView.Items.Add;

dm.tabela_estoque.open;

dm.tabela_estoque.first;

while not ( dm.tabela_estoque.eof) do

begin

lista.caption:=dm.tabela_estoque.fieldbyname('Descricao').AsString;

lista.subitems.add(dm.tabela_estoque.fieldbyname('quantidade').AsString);

lista.subitems.add(dm.tabela_estoque.fieldbyname('preco').AsString);

dm.tabela_estoque.next;

end;

end;

Quando o form carrega , ele executa o codigo mas carrega apenas uma linha ou seja como se todos fossem executados na mesma linha do listview.

Fica um unico item no listview, na primeira linha .

Ele não passa para a linha seguinte do ListView e assim por diante .

Eu procurei uma forma de tentar ir para a proxima linha do ListView mas não estou tendo sucesso !

Alguém pode me ajudar ??

Link para o comentário
Compartilhar em outros sites

No começo, não entendi sua duvida, mas percebi que no condigo:

lista := ListView.Items.Add; 

vem antes do loop, tente colocar no loop

seu codigo fica ssim

procedure TformEstoque.FormShow(Sender:TObject) 
var lista : TlistItem;
begin
dm.tabela_estoque.open;
dm.tabela_estoque.first;

while not ( dm.tabela_estoque.eof) do
begin
lista := ListView.Items.Add;

lista.caption:=dm.tabela_estoque.fieldbyname('Desc ricao').AsString;
lista.subitems.add(dm.tabela_estoque.fieldbyname(' quantidade').AsString);
lista.subitems.add(dm.tabela_estoque.fieldbyname(' preco').AsString);


dm.tabela_estoque.next;

end;
end;

Espero que ajude

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...