Bom dia
Veja se te ajuda.

Para marcar todos vc pode fazer assim no onclick de um botão

clientdataset.first;
while not clientdaset.eof do 
   begin
     clientdataset.edit;
     clientdataset.fields.fieldbyname('campo').value := valor verdadeiro
     clientdataset.post;
     clientdataset.applyupdates(0);
     clientdataset.next;
   end;

para somar os totais e jogar por exemplo um edit o conceito é o mesmo 

edit1.text := '0';
clientdataset.first;
while not clientdaset.eof do 
   begin
     if clientdataset.fields.fieldbyname('campo verdadeiro/falso').value := 
true then edit1.text := 
floattostr(clientdataset.fields.fieldbyname('campo').value+strtofloat(edit1.text));
     clientdataset.next;
   end;

  ----- Original Message ----- 
  From: Albuquerque 
  To: lista-del...@yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 23, 2010 9:51 AM
  Subject: [delphi-br] Como marcar todos registros de um DBGrid ?


    
  -DBGrid onde a primeira coluna é um campo CheckBox e a última coluna é um
  campo Float

  -DBGrid está ligado num ClientDataSet

  -botão "Selecionar Todos Registros" para o usuário.

  Como faço para selecionar (checkbox=true) todos os registros do DBGrid qdo o
  usuário clicar no citado botão ?

  Como faço para somar o campo Float dos registros selecionados ? (para ser
  exibido num outro local do form)

  Desde já agradeço a atenção dispensada.

  Att.

  Albuquerque

  [As partes desta mensagem que não continham texto foram removidas]



  

[As partes desta mensagem que não continham texto foram removidas]

Responder a