Alterar campos do DbGrid Automaticamente
:oops: Opa, Bem não é segredo que sou novato em delphi mais tbm sou novato em foruns então me desculpem se sair bobagens.
Vamos lá: tenho um Programa de controle de linhas de celulares e um grid que me mostra novas linhas disponiveis eu gostaria de alterar o campo disponivel que estiver em branco para ´sim´; hoje eu fasso isso clicanco na linha do DbGrid mais tenho que fazer isso um por um gostaria de adicionar ao evento Click de um botao para varrer o grid e alterar tudo.
Tks.[/code]
Vamos lá: tenho um Programa de controle de linhas de celulares e um grid que me mostra novas linhas disponiveis eu gostaria de alterar o campo disponivel que estiver em branco para ´sim´; hoje eu fasso isso clicanco na linha do DbGrid mais tenho que fazer isso um por um gostaria de adicionar ao evento Click de um botao para varrer o grid e alterar tudo.
Tks.[/code]
Sidimarsilva
Curtidas 0
Respostas
Webjoel
03/07/2008
Olá!
É só fazer um while no sei clientdataset, marcando os registros abertos. Ex:
(usando TClientDataSet)
É só você colocar este código no local onde você deseja fazer o processo!
É só fazer um while no sei clientdataset, marcando os registros abertos. Ex:
(usando TClientDataSet)
while not (ClientDataSet1.Eof) do begin if (ClientDataSet1MARCADO.AsString = ´NÃO´) then begin ClientDataSet1.Edit; ClientDataSet1MARCADO.AsString := ´SIM´; ClientDataSet1.Post; end; ClientDataSet1.Next; end;
É só você colocar este código no local onde você deseja fazer o processo!
GOSTEI 0
Sidimarsilva
03/07/2008
Olá!
É só fazer um while no sei clientdataset, marcando os registros abertos. Ex:
(usando TClientDataSet)
É só você colocar este código no local onde você deseja fazer o processo!
while not (ClientDataSet1.Eof) do begin if (ClientDataSet1MARCADO.AsString = ´NÃO´) then begin ClientDataSet1.Edit; ClientDataSet1MARCADO.AsString := ´SIM´; ClientDataSet1.Post; end; ClientDataSet1.Next; end;
Obrigado mesmo webjoel da pra imaginar o trabalho que tava tendo!!! hehehe.
GOSTEI 0