Registriert seit: 6. Mär 2008
43 Beiträge
Delphi 7 Professional
|
Re: Integer Filtern in einem DBgrid
3. Apr 2008, 07:51
Zitat von shmia:
Frage doch ab, ob es sich um ein String- oder Integer-Feld handelt.
Ich weiss ja welches Feld ein Integer Feld ist und kann der Filter demenstprechend zusammenstellen:
Delphi-Quellcode:
procedure TMainForm.FilterEditChange(Sender: TObject);
begin
with DBGrid do
begin
DataSource.DataSet.Filtered := Trim(FilterEdit.Text) <> '';
if DataSource.DataSet.Filtered then
if SelectedField.FieldName ='TELEFON' then //Das ist das IntegerFeld
DataSource.DataSet.Filter := SelectedField.FieldName + ' = ' + QuotedStr('*'+FilterEdit.Text+'*')
else // all die StringFelder
DataSource.DataSet.Filter := SelectedField.FieldName + ' Like ' + QuotedStr('*'+FilterEdit.Text+'*')
else
DataSource.DataSet.Filter := '';
end;
end;
aber mit dem Gleichheitszeichen statt dem Like Operator tuts auch nicht!
Es gibt 10 Arten von Menschen.
Diejenigen, die das binäre System verstehen, und die, die es nicht verstehen.
Aber ich frag mich was ist mit den anderen 8?
|