Tópico: Mudar cor da linha DBGRID

Citação:
Caros

Como posso alterar (destacar) a linha de um item excluído do DBGRiD?

Bem se esta excluido não deve aperecer no DbGrid .. Se não aparece no DbGrid não tem

como Destaca-lo . Porém o que vc pode fazer é um campo booleano que qnd se exlui

se alrera o Statu Deste Campo .. Ai sim Vc pode Destacar Todos os Items "Excluidos" da Tabela

( que no nosso caso são campos cujo Status fora Modificado )

 

Geralmente se usa esta técnica qnd se quer ter um Arquivo Morto ( Algo que não existe , mas

é passivel deLocalização . Por exemplo Clientes que estão Desativados (com certo Periodo que não

compra , ao inves de Exclui-los geralmente alteramos o Seu Status)

 

Não sei se entendi direito sua dúvida e se vc entendeu a idéia que tentei passar.

Caso te interresse o codigo sera feito no OnDrawDataCell e poderemos lhe passar

Citação:
No meu caso não excluiu do DBGrid.
Acontece o seguinte:
Após excluir o dbgrid não atualiza. Se eu clicar no próximo item e voltar ao grid dos itens excluídos aí sim o que foi excluído não aparece mais.
Já tentei dbgrid.refresh, repaint...mas nada resolveu.

Segue um trecho do código.

  begin
    begin
      DMForm.cdsCota.Delete;
      DBNav1.Enabled := True;
      DBNav2.Enabled := True;
      Inclusao := False;
      GrupoCotacao.Enabled := Inclusao;
      LimparDados;
      Exit;
    end;
      PageControl1.ActivePage := tsGridCotacao;
      sbMontaQuery.Click;
  end;

Obs.: Esse Exit; eu coloquei porque estava gerando um erro (list index is out of bounds). Após colocar o exit o erro não ocorre, mas o item fica lá e só some se eu fizer como citei acima. A propósito, são dois grids. o de cima é o qual avanço e volto pra atualizar o grid de baixo.

 

hummmmmmmmmmm...

  DMForm.cdsCota.Delete;
Não Exclui ni DbGrid ???

Afinal este DbGrid esta Ligado a qual DataSouce ????

 

Citação:
No meu caso não excluiu do DBGrid.
Acontece o seguinte:
Após excluir o dbgrid não atualiza. Se eu clicar no próximo item e voltar ao grid dos itens excluídos aí sim o que foi excluído não aparece mais.
Já tentei dbgrid.refresh, repaint...mas nada resolveu.

Segue um trecho do código.

  begin
    begin
      DMForm.cdsCota.Delete;
      DBNav1.Enabled := True;
      DBNav2.Enabled := True;
      Inclusao := False;
      GrupoCotacao.Enabled := Inclusao;
      LimparDados;
      Exit;
    end;
      PageControl1.ActivePage := tsGridCotacao;
      sbMontaQuery.Click;
  end;

Obs.: Esse Exit; eu coloquei porque estava gerando um erro (list index is out of bounds). Após colocar o exit o erro não ocorre, mas o item fica lá e só some se eu fizer como citei acima. A propósito, são dois grids. o de cima é o qual avanço e volto pra atualizar o grid de baixo.

Mas quem é sbMontaQuery.Click;  ???? Codigo ???

 

O Erro da no  sbMontaQuery.Click;  ???? ou no  PageControl1.ActivePage := tsGridCotacao; ????

 

So uma curiosidade ... Porque dois Begin (Begini begin) ???? para que isto ????

 

Coloque o Exit apos o  PageControl1.ActivePage := tsGridCotacao; >>> Dá Erro ???


 

Citação:
Só para complementar.
Eu queria mudar a cor só para o usuário perceber que excluiu o item, mas depois que ele acessar o item não deve mesmo estar lá.
Se tiver como solução atualizar o grid nem precisa mudar a cor... o lance da cor seria uma paliativa, já q não atualizou o grid.

Citação:
Ops...excluí o begin duplicado...era pra ver se pegava no tranco..rsrs

begin
  { Excluir }
  if DMform.cdsItem.FieldByName('FLAG_BAIXA').value = '1' then
  begin
    if Application.Messagebox('Este produto já foi pedido, deseja continuar a exclusão?',
      'Informação', MB_ICONINFORMATION + MB_YESNO) = IDno then
    Exit;
  end;
  if Application.MessageBox('Deseja excluir a cotação?',
    'Confirmação', MB_ICONQUESTION + MB_YESNO) = IDYES then

  begin
    DMForm.cdsCota.Delete;
    DBNav1.Enabled := True;
    DBNav2.Enabled := True;
    Inclusao := False;
    GrupoCotacao.Enabled := Inclusao;
    LimparDados;
  end;
    PageControl1.ActivePage := tsGridCotacao;
    Exit; // Com o exit aqui acontece o mesmo se deixar depois de "LimparDados;" Exclui mas não atualiza.*
    sbMontaQuery.Click;
end;

* Detalhe: O item excluído não some da lista, mas o botão de excluir fica desabilitado!

 

Então seu Elton Ésqui ... Parece que o Problema esta em  PageControl1.ActivePage := tsGridCotacao;

 

Vc mesmo Disse

 

 

Da o Erro Do Indice e não Atualiza pq chama o Exit antes do sbMontaQuery.Click

Agora vamos atacar o problema ...

 

Quem é PageControl1.ActivePage := tsGridCotacao;  ??????