Ver Mensaje Individual
  #34  
Antiguo 29-09-2011
Avatar de Darkseratul
Darkseratul Darkseratul is offline
Miembro
NULL
 
Registrado: feb 2011
Posts: 58
Reputación: 14
Darkseratul Va por buen camino
Red face solo es un detalle pero no se

Cita:
Empezado por oscarac Ver Mensaje
exactamente cual es el problema?
lo que pasa es que tengo un adoconection , adatable, y un datasourse

la tabla tienes tres campos yo tenia la idea de especificar en que campo si hiciera la búsqueda con unos checkbox
con este código

Código Delphi [-]
procedure TFClientes.Edit1Change(Sender: TObject);
begin
  // Siempre se quita el filtro
  datamodule1.tarchivo.Filtered := False;

  // Hacer algo si hay texto
  if (Edit1.Text <> '') then
  begin
    // Crear el filtro
    if CheckBox1.Checked  then
    begin
      datamodule1.tarchivo.Filter := 'Nombre Like ''' + Edit1.Text + '*''';
      datamodule1.tarchivo.Filtered := True
    end
    else if CheckBox2.Checked  then
      begin
      datamodule1.tarchivo.Filter := 'Numero Like ''' + Edit1.Text + '*''';
      datamodule1.tarchivo.Filtered := True
    end
    else
    datamodule1.tarchivo.Filtered := False;
   end;
end;

como podrás darte cuenta todo depende de los checkbox
el error es cuando se usa el checkbox2, me dice caral que se salta el like y por eso no a parece nada en la busqueda

espero explicarme bien y bueno caral ya medio otro ejemplo lo estoy tratando

alguna idea ?????

tu rutina esta muy bien pero no entiendo nada del codigo que has puesto ????? disculpa me ignorante persona
Responder Con Cita