Einzelnen Beitrag anzeigen

H.Bothur

Registriert seit: 25. Jun 2012
Ort: Seevetal & Lagos
252 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: ClientDataSet mit zwei Filtern

  Alt 20. Jun 2017, 10:41
Sorry - eine Sache verstehe ich leider immer noch nicht:

Filter auf nur ein Feld - klappt !
Delphi-Quellcode:
  CTitelKundenNr := 'Nummer';
  CTitelFirma1 := 'Firma1';
  ClientDataSet_Kunden.FilterOptions := [foCaseInsensitive];
  ClientDataSet_Kunden.Filtered := True;
  ClientDataSet_Kunden.Filter := CTitelKundenNr +'=' +QuotedStr(KundenNummer);
Suche nach zwei Feldern, zweites Feld mit Anfangsbuchstaben und dann Asterix - klappt !
Delphi-Quellcode:
  FilterString := 'M';
  CTitelKundenNr := 'Nummer';
  CTitelFirma1 := 'Firma1';
  ClientDataSet_Kunden.FilterOptions := [foCaseInsensitive];
  ClientDataSet_Kunden.Filtered := True;
  ClientDataSet_Kunden.Filter := CTitelKundenNr +'=' +QuotedStr(KundenNummer) +' AND ' +CTitelFirma1 +'=' +QuotedStr(FilterString +'*');
Suche nach zwei Feldern, zweites Feld OHNE Anfangsbuchstaben und dann Asterix - klappt nicht sondern es gibt kein Ergebnis !
Delphi-Quellcode:
  FilterString := ''; { <- hier ist der Unterschied }
  CTitelKundenNr := 'Nummer';
  CTitelFirma1 := 'Firma1';
  ClientDataSet_Kunden.FilterOptions := [foCaseInsensitive];
  ClientDataSet_Kunden.Filtered := True;
  ClientDataSet_Kunden.Filter := CTitelKundenNr +'=' +QuotedStr(KundenNummer) +' AND ' +CTitelFirma1 +'=' +QuotedStr(FilterString +'*');
Meine Idee war das ich den Suchstring zeichen für Zeichen aufbaue und dann eben partiell danach suche. Nur - wenn ich noch keine Suchstring habe müsste der Filter +CTitelFirma1 +'= *') doch eigentlich alle Datensätze anzeigen, oder ?

Gruß
Hans
Hans-Georg Bothur
www.hermann-juergensen.de
  Mit Zitat antworten Zitat