Deletar linha de um dbgrid selecionado de outro dgrid
20/08/2008
0
Estou formando uma estrutura para que quando eu clicar na na linha do DbgCarChe(Dbgrid) ele apagar
a linha do outro dbgrid(DbgCheques), os Dbgrids são iguais só que o DbgCarChe eu mostro todos os cheques
e quando eu clico duas vezes eu lanço o determinado cheque para o outro dbgrid, e a linha do cheque selecionado
do DbgCarChe fica em vermelho e quando eu clico duas vezes nela ela volta a cor normal, ai eu quero excluir
do DbgCheques, estava fazendo assim mas não deu certo, o que estou fazendo de errado.
Aluno, Cheque, Datado são variaveis que eu atribuo os valores da linha do grid pelo evento afterscroll da query que está ligada no dbgrid (dbgcarche), e TxtVal.value e um TCurrencyEdit do RxLib que tbém atribuo o valor pelo afterscroll.
a linha do outro dbgrid(DbgCheques), os Dbgrids são iguais só que o DbgCarChe eu mostro todos os cheques
e quando eu clico duas vezes eu lanço o determinado cheque para o outro dbgrid, e a linha do cheque selecionado
do DbgCarChe fica em vermelho e quando eu clico duas vezes nela ela volta a cor normal, ai eu quero excluir
do DbgCheques, estava fazendo assim mas não deu certo, o que estou fazendo de errado.
Aluno, Cheque, Datado são variaveis que eu atribuo os valores da linha do grid pelo evento afterscroll da query que está ligada no dbgrid (dbgcarche), e TxtVal.value e um TCurrencyEdit do RxLib que tbém atribuo o valor pelo afterscroll.
if tblcheques.Fields[00].AsString = Aluno then if tblcheques.Fields[02].AsString = Cheque then if tblcheques.Fields[03].AsCurrency = TxtVal.value then if tblcheques.Fields[04].AsDateTime = Datado then begin if ( not tblcheques.Active ) then tblcheques.Open; with tblcheques do begin Delete; Fields[00].AsString := Aluno; Fields[02].AsString := Cheque; Fields[03].AsCurrency := Valor.value; Fields[04].AsDateTime := Datado; Post; end; tblcheques.Refresh;
Robinhocne
Curtir tópico
+ 0
Responder
Posts
Clique aqui para fazer login e interagir na Comunidade :)