Ajuda comparação ListBox com dados Tabela
Pessoal boa tarde...
Estou com um desafio e gostaria de dica para eu fazer da melhor forma possível...
Tenho uma ListboxA temporária (está oculta) com vários registros, e os dados dessa listboxA tem que ir para uma listboxB padrão que o usuário vai visualizar.
Só que também tenho um select com vários registros, a listboxB só pode receber o item da listboxA quando encontrar o mesmo registro.
O jeito que eu pensei? (Dessa forma está funcionando, só queria melhorar o código)
for I := 0 to lstxml.Items.Count - 1 do begin
while not DM.SqlAux.Eof do begin
if (Pos(lstxml.Items[i], DM.SqlAux.FieldByName('CHAVE').AsString+'-cte.xml') > 0) then begin
lstArq.Items.Add(lstxml.Items[i]);
DM.SqlAux.Next;
end
else begin
DM.SqlAux.Next;
end;
end;
DM.SqlAux.First;
end;
Teria um jeito mais fácil?
Grato,
Wagner
Estou com um desafio e gostaria de dica para eu fazer da melhor forma possível...
Tenho uma ListboxA temporária (está oculta) com vários registros, e os dados dessa listboxA tem que ir para uma listboxB padrão que o usuário vai visualizar.
Só que também tenho um select com vários registros, a listboxB só pode receber o item da listboxA quando encontrar o mesmo registro.
O jeito que eu pensei? (Dessa forma está funcionando, só queria melhorar o código)
for I := 0 to lstxml.Items.Count - 1 do begin
while not DM.SqlAux.Eof do begin
if (Pos(lstxml.Items[i], DM.SqlAux.FieldByName('CHAVE').AsString+'-cte.xml') > 0) then begin
lstArq.Items.Add(lstxml.Items[i]);
DM.SqlAux.Next;
end
else begin
DM.SqlAux.Next;
end;
end;
DM.SqlAux.First;
end;
Teria um jeito mais fácil?
Grato,
Wagner
Wagner Novaes
Curtidas 0
Melhor post
Fernando Wahl
13/12/2018
Bom dia Wagner, como vai, legar compartilhas experiencias.
Cara pelo que vi seu código esta bem legal, não precisa mudar nada, ainda mais que está funcionando como vc disse.
As vezes precisamos fazer os códigos funcionais e bonitos dentro das boas práticas, mas se está funcionando assim, e está legal seu código, deixe assim.
Abraços, até mais.
Cara pelo que vi seu código esta bem legal, não precisa mudar nada, ainda mais que está funcionando como vc disse.
As vezes precisamos fazer os códigos funcionais e bonitos dentro das boas práticas, mas se está funcionando assim, e está legal seu código, deixe assim.
Abraços, até mais.
GOSTEI 1
Mais Respostas
Wagner Novaes
10/12/2018
Fernando primeiramente obrigado pela resposta.
Bom se está bom assim, assim vai ficar... rs
Abraço,
Wagner
Bom se está bom assim, assim vai ficar... rs
Abraço,
Wagner
GOSTEI 0