[Lazarus-es] Como resuelvo esto!!!

[Fredy Gonzales]

Amigos,

Tengo un formulario con tres TDBGrid, pero uno de ellos es dinamico (se carga con data de mysql cuando el usuario mueve un combobox)

mi modulo de carga dinamica lo pongo en el evento combochange y es este, para esto utilizo los dataset de Zeos 6 y mysql

     With global.lstmovimientos do begin;
         Close;
         SQL.Text:='select * from servicios Where ser_estado="' + comobo.text + '"'; 
         Open;
     end;
     dsmovimiento.DataSet:= global.lstmovimientos;   

ok, En un timer tengo el evento que refresca el TDBGrid cada minuto ( dbservicios es el TDBGrid y el DataSource asignado es el dsmovimiento)
y es este el codigo 

procedure Tfrmservicios.Timer1Timer(Sender: TObject);
var
   p:TBookMark;
begin
  Timer1.Enabled:=False;

  if (dbservicios.DataSource.DataSet.RecNo>0) then;
     Begin
       dbservicios.DataSource.DataSet.DisableControls;
       p:= dbservicios.DataSource.DataSet.GetBookmark;
       dbservicios.DataSource.DataSet.Refresh;
       dbservicios.DataSource.DataSet.GotoBookmark(p);
       dbservicios.DataSource.DataSet.FreeBookmark(p);
       dbservicios.DataSource.DataSet.EnableControls;
     end;

  Timer1.Enabled:=True;

end;

Como veran yo consulto si dbservicios (el tdbgrid) esta con registros o no, dado que siempre existe cambios y puede quedar vacio, pero por alguna razon no me esta funcionado el RecNo del dbservicios.
Mejor dicho, cuando el tdbgrid esta vacio, el lo asume como lleno y pasa me da un error al no poder ubicar el puntero del bookmark, asi que el programa se bloquea.

Espero no haberlos cansado y gracias por su colaboracion.

FG
Lima - Peru




------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20100114/411ecb7d/attachment-0002.html>