Código Seleção DBGrid

[Sérgio_BR 0]

Caro Márcio,

 

Encontrei esse código ai, abaixo:

 

procedure TfrmVendas.DBGrid1CellClick(Column: TColumn);

var

Idx :Integer;

begin

if DBGrid1.SelectedRows.Count > 0 then

begin

for Idx := 0 to DBGrid1.SelectedRows.Count-1 do

begin

// posiciona o dataset de origem no "n" registro selecionado

tbProduto.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[idx]));

 

// move os dados do dataset de origem para destino aqui

tbVendas.Append;

tbVendasNomProd.Value := tbProdutoNomProd.Value;

tbVendasCorProd.Value := tbProdutoCorProd.Value;

tbVendasTipo.Value := tbProdutoTipo.Value;

tbVendas.Post;

end;

end;

 

Com ele, consigo selecionar o produto desejado, quantas vezes desejar, só que recebo uma mensagem de violação de chave, porque o Delphi entende que estou querendo inserir o nome do cliente mais de uma vez....

Aliás, quero que apareça o nome do cliente apenas uma vez, mesmo que a ele seja enviado mais de um produto, entende?

Como posso melhorar esse código? Qual melhor componente para vizualisar dessa forma?

 

Um abraço!

 

Sérgio.

[hksistemas 0]

Bom dia!

 

...porque o Delphi entende que estou querendo inserir o nome do cliente mais de uma vez....

Aliás, quero que apareça o nome do cliente apenas uma vez...

Onde aparece nesse código o campo nome de cliente? Mas se você desejar exibir um único registro em um conjunto de registros iguias, faça um select usando o Select Distinct