Fórum Como apagar um DBGrid #470942

22/02/2014

0

Olá Pessoal,

Eu já consegui apagar todos os campos como tedit, tdbedit, edtmask. Porém não sei como apagar todos os itens que eu coloquei em um DBGrid. Eu já tentei fechar e abrir mais não deu certo.

Eu estou tentando fazr deste modo
if not dtsItens.DataSet.IsEmpty then
    begin
      dtsItens.DataSet.Delete;
    end;


Ele da certo porém ele só apaga 1 registro no DBGrid como que eu posso fazer um loop dele para apagar todos os itens?

Desde já agradecido!
Edson Vilhalba

Edson Vilhalba

Responder

Posts

22/02/2014

Maicon Wagner

Tenta utlilizar o Comando EmptyDataSet. caso voce estiver utilizando CDS
Responder

Gostei + 0

22/02/2014

Edson Vilhalba

Eu consegui me lembrei que poderia percorrer pelo dataset e fiz desta maneira se alguem precisar está ai o código abaixo:
if TClientDataSet(dtsItens.DataSet).RecordCount > 0 then
    begin
      for I := 0 to TClientDataSet(dtsItens.DataSet).RecordCount -1 do
      begin
        if not dtsItens.DataSet.IsEmpty then
        begin
          dtsItens.DataSet.Delete;
        end;
      end;
    end;
end;
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar