<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<META content=text/html;charset=ISO-8859-1 http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18854"></HEAD>
<BODY bgColor=#ffffff text=#000000>
<DIV><FONT size=2 face=Arial>Gracias por tu apoyo, pero cuando pienso en filtrar
estoy asumiendo que el dataset tiene todos los registros cargado, entonces
pense que quizas para evitar demora en filtrado (cuando sean mas de 1,000)
decidi prepararlo en un query que me de solo lo que necesito.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Filterer si lo uso, pero para algo que se que no va
a superar mas de 100, registros (en tablas de apoyo).</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Gracias.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>FG</FONT></DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="FONT: 10pt arial; BACKGROUND: #e4e4e4; font-color: black"><B>From:</B>
<A title=josea@artextrading.com href="mailto:josea@artextrading.com">José Ant
Cuello</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of
Lazarus List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Friday, January 15, 2010 2:25
AM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Como resuelvo
esto!!!</DIV>
<DIV><BR></DIV>Hola, si no son muchos registros también puedes usar el
filtrado de registros con la propiedad "filtered" y el evento onfilter y en el
evento onchange del tcombobox simplemente hacer un first del tdataset para que
refresque ... luego lo del bookmark sigue siendo igual.<BR><BR>Sólo por dar
otra idea ... Un saludo.<BR><BR><BR>Fredy Gonzales escribió:
<BLOCKQUOTE cite=mid:B89D19356B47488F8A2EA28862E308CB@gcg.com.pe
type="cite"><META name=GENERATOR content="MSHTML 8.00.6001.18854">
<STYLE></STYLE>
<DIV><FONT size=2 face=Arial>Amigos,</FONT></DIV>
<DIV> </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> </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> </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> </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> </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></FONT>
<DIV><FONT size=2 face=Arial><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></FONT></DIV>
<DIV><FONT size=2 face=Arial><BR></FONT><FONT color=#0000ff size=2
face=Arial> Timer1.Enabled:=True;</FONT></DIV>
<DIV> </DIV>
<DIV><FONT color=#0000ff size=2 face=Arial>end;</FONT></DIV>
<DIV> </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> </DIV>
<DIV><FONT size=2 face=Arial>Espero no haberlos cansado y gracias por su
colaboracion.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=2 face=Arial>FG</FONT></DIV>
<DIV><FONT size=2 face=Arial>Lima - Peru</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV><PRE wrap=""><HR SIZE=4 width="90%">
_______________________________________________
Lazarus-es mailing list
<A class=moz-txt-link-abbreviated href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</A>
<A class=moz-txt-link-freetext href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A>
</PRE></BLOCKQUOTE><BR>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>