<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18854">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2 face=Arial>Amigos,</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Tengo un formulario con tres TDBGrid, pero uno de
ellos es dinamico (se carga con data de mysql cuando el usuario mueve un
combobox)</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>mi modulo de carga dinamica lo pongo en el
evento combochange y es este, para esto utilizo los dataset de Zeos 6 y
mysql</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT color=#0000ff size=2 face=Arial> With
global.lstmovimientos do
begin;<BR>
Close;<BR> SQL.Text:='select *
from servicios Where ser_estado="' + comobo.text + '"'; </FONT></DIV>
<DIV><FONT color=#0000ff size=2
face=Arial>
Open;<BR> end;<BR>
dsmovimiento.DataSet:= global.lstmovimientos; </FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>ok, En un timer tengo el evento que refresca el
TDBGrid cada minuto ( dbservicios es el TDBGrid y el DataSource asignado es el
dsmovimiento)</FONT></DIV>
<DIV><FONT size=2 face=Arial>y es este el codigo </FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT color=#0000ff size=2 face=Arial>procedure
Tfrmservicios.Timer1Timer(Sender: TObject);<BR>var<BR>
p:TBookMark;<BR>begin<BR> Timer1.Enabled:=False;</FONT></DIV><FONT size=2
face=Arial>
<DIV><BR><FONT color=#0000ff> if
(dbservicios.DataSource.DataSet.RecNo>0) then;<BR>
Begin<BR>
dbservicios.DataSource.DataSet.DisableControls;<BR>
p:=
dbservicios.DataSource.DataSet.GetBookmark;<BR>
dbservicios.DataSource.DataSet.Refresh;<BR>
dbservicios.DataSource.DataSet.GotoBookmark(p);<BR>
dbservicios.DataSource.DataSet.FreeBookmark(p);<BR>
dbservicios.DataSource.DataSet.EnableControls;<BR>
end;</FONT></DIV>
<DIV><BR></FONT><FONT color=#0000ff size=2 face=Arial>
Timer1.Enabled:=True;</FONT></DIV>
<DIV><FONT color=#0000ff></FONT> </DIV>
<DIV><FONT color=#0000ff size=2 face=Arial>end;</FONT></DIV>
<DIV><FONT color=#0000ff size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>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.</FONT></DIV>
<DIV><FONT size=2 face=Arial>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.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Espero no haberlos cansado y gracias por su
colaboracion.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>FG</FONT></DIV>
<DIV><FONT size=2 face=Arial>Lima - Peru</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV></BODY></HTML>