SELEÇÃO DE COLUNAS NO DBGRID ASSUMINDO SEMPRE A MESMA COLUNA
03/12/2009
0
Meus caros estou passando por um problema meio estranho.
É o seguinte quando dou um click com o mouse na celula correspondente ao Field STATUS_FIN ele simplesmente ignora.
Na verdade em qualquer coluna da DBGrid que eu der o Click ele assume como se fosse o Field STATUS.
Alguem pode me ajudar?
Desde já agradeço.
procedure TfrmAprova.DBGrid3CellClick(Column: TColumn);
begin
if (Column.Field = qrPrecosSTATUS_FIN) then
begin
qrPrecos.Edit;
qrPrecosSTATUS_FIN.AsBoolean := not qrPrecosSTATUS_FIN.AsBoolean;
qrPrecos.Post;
end;
if (Column.Field = qrPrecosSTATUS) then
begin
qrPrecos.Edit;
qrPrecosSTATUS.AsBoolean := not qrPrecosSTATUS.AsBoolean;
qrPrecos.Post;
end;
DBGrid3.Repaint;
end;
É o seguinte quando dou um click com o mouse na celula correspondente ao Field STATUS_FIN ele simplesmente ignora.
Na verdade em qualquer coluna da DBGrid que eu der o Click ele assume como se fosse o Field STATUS.
Alguem pode me ajudar?
Desde já agradeço.
procedure TfrmAprova.DBGrid3CellClick(Column: TColumn);
begin
if (Column.Field = qrPrecosSTATUS_FIN) then
begin
qrPrecos.Edit;
qrPrecosSTATUS_FIN.AsBoolean := not qrPrecosSTATUS_FIN.AsBoolean;
qrPrecos.Post;
end;
if (Column.Field = qrPrecosSTATUS) then
begin
qrPrecos.Edit;
qrPrecosSTATUS.AsBoolean := not qrPrecosSTATUS.AsBoolean;
qrPrecos.Post;
end;
DBGrid3.Repaint;
end;
Tadeu Oliveira
Curtir tópico
+ 0
Responder
Posts
03/12/2009
Bruno Batista
Boa tarde,
realizei um teste aqui e funcionou, mas tenta comparar com o nome da coluna.
procedure TfrmAprova.DBGrid3CellClick(Column: TColumn);
begin
if (Column.FieldName = qrPrecosSTATUS_FIN.FieldName) then
begin
qrPrecos.Edit;
qrPrecosSTATUS_FIN.AsBoolean := not qrPrecosSTATUS_FIN.AsBoolean;
qrPrecos.Post;
end;
if (Column.FieldName = qrPrecosSTATUS.FieldName) then
begin
qrPrecos.Edit;
qrPrecosSTATUS.AsBoolean := not qrPrecosSTATUS.AsBoolean;
qrPrecos.Post;
end;
DBGrid3.Repaint;
end;
Atenciosamente,
Bruno Moreira Batista.
realizei um teste aqui e funcionou, mas tenta comparar com o nome da coluna.
procedure TfrmAprova.DBGrid3CellClick(Column: TColumn);
begin
if (Column.FieldName = qrPrecosSTATUS_FIN.FieldName) then
begin
qrPrecos.Edit;
qrPrecosSTATUS_FIN.AsBoolean := not qrPrecosSTATUS_FIN.AsBoolean;
qrPrecos.Post;
end;
if (Column.FieldName = qrPrecosSTATUS.FieldName) then
begin
qrPrecos.Edit;
qrPrecosSTATUS.AsBoolean := not qrPrecosSTATUS.AsBoolean;
qrPrecos.Post;
end;
DBGrid3.Repaint;
end;
Atenciosamente,
Bruno Moreira Batista.
Responder
Clique aqui para fazer login e interagir na Comunidade :)