Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-07-2003
Avatar de superhopi
superhopi superhopi is offline
Miembro
 
Registrado: may 2003
Ubicación: Valencia
Posts: 128
Poder: 21
superhopi Va por buen camino
Seleccionar fila en rejilla...

Hola chicos.
Tengo un form con una rejilla que contiene los datos de los clientes, y he añadido la opcion de buscar, abriendose otro form. Cuando en el segundo form ya se ha encontrado el cliente, me gustaria que en la reja de clientes saliera la fila del cliente seleccionado,,, ¿alguien me puede echar un cable?
__________________
Si me ves durmiendo no me despiertes, podría estar soñando que soy libre.
Responder Con Cita
  #2  
Antiguo 08-07-2003
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 27
jachguate Va por buen camino
lo que tenes que hacer es ubicar en el dataset el registro que deseas. digamos con un Locate o con un FindKey.

La fila se seleccionara "automaticamente" en la grilla.

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
  #3  
Antiguo 08-07-2003
mpedra mpedra is offline
Miembro
 
Registrado: may 2003
Ubicación: Buenos Aires (Arg)
Posts: 19
Poder: 0
mpedra Va por buen camino
Si no te he entendido mal este código estaria haciendo lo que necesitas, aunque la explicación estas dando del problema no alcanza para definirlo por completo.

Formualrio1 = Class(TForm)
...
published

Procedure OnClickBuscarCliente(Sender:TObject);

end;



Formulario2 = Class(TForm)
...
published

Function Buscar(DS:TDataSet):Boolean;

end;



Procedure Formulario1.OnClickBuscarCliente(Sender:TObject);
var b:TBookmark;
bb:Boolean;
begin try DatasourceF1.DisableControls;
B:=Table1F1.GetBookmark;
with Formulario2.Create(self) do
begin bb:=Buscar(Table1F1);
Free;
end;
finally DataSourceF1.EnableControls;
if not bb then Table1F1.GotoBookmark(B)
esle refresh;
end;
end;



Procedure Formulario2.Buscar(DS:TDataset):Boolean;
begin Datasource2.DataSet:=DS;
Showmodal;
result:= (modalResult=MROK);
end;

Esta solución depende de los controles de acceso a los datos que estes utilizando. Aqui estoy suponiendo que el Formualrio1 muestra los datos de los clientes desde una tabla, pero si fuera una Query la solución posiblemente no sirva.
El Formulario2 funciona con la misma tabla del formulario1 y entonces cuando mueves el cursor lo haces siempre sobre la misma tabla.
Bueno no se si es lo que necesitabas, pero eso es lo que entendi, espero que sirva de algo

Saludos
__________________
Marcos
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 08:07:34.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi