Zwei Felder in Tabelle Filtern

[Christian18]

Hallo,

wie kann ich in einer ADOTabelle Z´wei Felder Filtern???

[mkinzler]

AdoTable1.Filter := 'feld1=bedingung1 and feld2=bedingung2';

[Christian18]

Hallo,

ja so habe ich es´versucht funktioniert aber nicht.

DM.TKunden.Filter:='RIdx LIKE ' + QuotedStr(IntToStr(i)) + 'and' + 'Kunden LIKE ' + QuotedStr(UpperCase(Edit1.Text) + '*');

[mkinzler]

Hast du auch DM.TKunden.Filtered := True; gesetzt ?

[Christian18]

Zitat von mkinzler:

Hast du auch DM.TKunden.Filtered := True; gesetzt ?

Ja ich versuche in einer Detail Tabelle zu filtern.

habe aber vorher die mastersource abgeklemmt. hier der ganze code:

Delphi-Quellcode:

  var i : Integer;
begin
  inherited;
  if Edit1.Text = '' then
    begin
      DM.TTKunden.Filtered:=False;
      Close;
    end
  else
    begin
      i:=DM.TBenutzer.FieldByName('Idx').AsInteger;
      DM.TKunden.Filtered:=False;
      DM.TKunden.MasterSource.Enabled:=True;
      DM.TKunden.IndexFieldNames:='';

      DM.TKunden.Filter:='RIdx = ' + QuotedStr(IntToStr(i)) + 'and' + 'KName LIKE ' + QuotedStr(UpperCase(Edit1.Text) + '*');

      DM.TKunden.Filtered:=True;
      Close;
    end;

[marabu]

Hallo Christian,

sorge dafür, dass alle Operatoren von Leerzeichen umgeben sind - dann sollte es funktionieren.

Delphi-Quellcode:

const
  fmtFilter = 'RIdx = %d and KName LIKE %s';
var
  sFilter: String;
begin
  // ...
  sFilter := Format(fmtFilter, [i, QuotedStr(Edit1.Text + '*')]);
  DM.TKunden.Filter := sFilter;
  // ...
end;

Grüße vom marabu