Unsopported operation en combobox
 

Hola amigos, tengo un combobox y un edit en un form junto a un dbgrid. Tengo varios items en el combobox y la idea es que al seleccionar un item, se filtre por lo que se vaya escribiendo en el edit, pero segun el criterio seleccionado en el combobox

Y obtengo el error unsopported operation.

El codigo:

Código Delphi [-]
procedure TForm2.ComboBox1Change(Sender: TObject);
var
titular:string;
i:integer;
begin
i:=ComboBox1.ItemIndex;
if (i=0) then
    begin

      with qcheques do
        begin
          Open;
          Filter:='titular like '''+QuotedStr(Edit4.Text)+'''*''';
          Filtered:=True;
          DBGrid1.DataSource.DataSet.Refresh;
        end;
    end
    else
    begin
      qcheques.Filtered:=False;
    end;

end;

Esta en el evento onchange del combo, agradezco su ayuda.

Bueno cambie de lugar el codigo lo coloque en el evento onchange del edit.
Ahora funciona, pero gracias igual.

Código Delphi [-]
procedure TForm2.Edit4Change(Sender: TObject);
var
titular:string;
i:integer;
fecha:string;
begin
i:=ComboBox1.ItemIndex;
if (i=0) then
    begin

      with qcheques do
        begin
          Open;
          Filter:='titular Like''' + (Edit4.Text)+ '*''';
          Filtered:=True;
          DBGrid1.DataSource.DataSet.Refresh;
        end;
    end
    else
    if (i=1) then
      begin
          with qcheques do
            begin
              Open;

              Filter:='nombreyape like '''+Edit4.Text+'*''';
              Filtered:=True;
              DBGrid1.DataSource.DataSet.Refresh;
            end;
      end
    else
    begin
      qcheques.Filtered:=False;
    end;
end;

Hola.

Yo tambien uso bastante un método parecido y efectivamente, seleccionas del combo un campo X pero el valor de este campo X lo tienes que filtrar en el OnChange del Edit sobre el que vas escribiendo.

El filtro like me gusta mucho ya que si me acuerdo de un trozo de la cadena a buscar que no sea precisamente el inicio ayuda mucho.

Saludos.

Josep