1 Mill�n de gracias.
Ahora tengo otro problema el evento BeforePost del TSQLQuery no se me est� disparando, esto es un Bug de Lazarus?
Tengo:
procedure Tfrmum.dbgumKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = 13 then
if length(rsum.FieldByName('um').AsString) = 0 then
begin
cmdcerrar.SetFocus;
key:=0;
end
else
rsum.Post;
end;
procedure Tfrmum.rsumBeforePost(DataSet: TDataSet);
begin
rsum.FieldByName('entidad').AsString := dtm.strentidad;
end;
// Lo que sigue es para que sepan los nombres
TSQLQuery.Name := rsum
TDBGrid.name := dbgum
=========
|| ISMAEL ||
=========
Earlier message 29 lines
----- Original Message -----
From: christian Ortiz
To: Spanish version of Lazarus List
Sent: Monday, March 08, 2010 12:39 PM
Subject: Re: [Lazarus-es] Conocer el dato de una celda en un TDBGrid
2010/3/8 Ismael L. Donis Garc�a <ismael en citricos.co.cu>
Como puedo conocer el dato que tiene una celda determinada en un TDBGrid?
Quiero conocer algo como esto:
if TDBGrid.Columns[1].AsString = XXXX then
lo haces con
Query.fieldbyname('tucampo').asstring
--
Christian
------------------------------------------------------------------------------