Ver Mensaje Individual
  #3  
Antiguo 05-09-2011
Avatar de cubanbaker
cubanbaker cubanbaker is offline
Miembro
NULL
 
Registrado: ago 2011
Ubicación: La Habana, Cuba
Posts: 65
Reputación: 0
cubanbaker cantidad desconocida en este momento
Aqui esta el codigo. La Tabla la filtro por Sexo en un RadioGroup, asi el DBGrid se filtra segun se seleccione el sexo: Masculino o Femenino. Cuando está filtrada por Masculino y busco un articulo que es Femenino y existe en la Tabla, lo encuentra, pero como el DBGrid solo me esta mostrando los masculinos lo que hace es que el puntero se mueve al articulo masculino mas cercano. Asi hace cuando esta filtrada por Femenino, etc.
Código Delphi [-]
 
procedure TModifyRecurve.BtnBuscarClick(Sender: TObject);
begin
  if Radiogroup1.ItemIndex=0 then {Buscar por ArcherId}
    if DataModule1.TablaRecurvo.Locate('ArcherId',edit1.Text,[]) then
      DataModule1.TablaRecurvo.Locate('ArcherId',edit1.Text,[])
    else
      Showmessage('Archer not found. Check the Archer Id')
  else {Buscar por Apellidos}
    if DataModule1.TablaRecurvo.Locate('Apellidos',edit1.Text,[]) then
      DataModule1.TablaRecurvo.Locate('Apellidos',edit1.Text,[])
    else
      Showmessage('Archer not found. Check the Archer Last Name');
end;

Última edición por ecfisa fecha: 05-09-2011 a las 05:22:16. Razón: ETIQUETAS [DELPHI] [/DELPHI]
Responder Con Cita