[MarinaB]

Здравствуйте, вот такой вопрос. Нужно отфильтровать таблицу по одной или нескольким значениям. Что-то вроде такого:

Код:

  if CheckBox14.Checked then
  begin
    d1 := DateTimePicker1.DateTime;
    d2 := DateTimePicker2.DateTime;
    str1 := 'AND DateGaran>=' + quotedstr(DateToStr(d1)) + ' AND DateGaran<=' + quotedstr(DateToStr(d2));
  end
  else str1 := '';
  if CheckBox15.Checked then
  begin
    str2 := 'AND Client_Service=' + quotedstr(IntToStr(ClientID));
  end
  else str2 := '';
if CheckBox16.Checked then
  begin
    str3 := 'AND specialist=' + quotedstr(IntToStr(SpecialistID));
  end
  else str3 := '';
  if CheckBox17.Checked then
  begin
    str4 := 'AND VidObName=' + quotedstr(IntToStr(VidObID));
  end
  else str4 := '';

  DataModule1.ServiceADOTable.Filter := '' + str1 + str2 + str3 + str4;
  DataModule1.ServiceADOTable.Filtered := true;

Понятно, что синтаксис неправильный. Подскажите, пожалуйста, как правильно написать?

[lmikle]

Собирай сначала все условия по отдельности в массив/список строк, а потом уже, в самом конце, строй предложение WHERE, что бы AND'ы были в правильных местах и небыло лишних.

[MarinaB]

Здравствуйте, lmikle, а можно поподробней? Не очень понятно