IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> БД, фильрация
сообщение
Сообщение #1


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Господа, выручайте срочно, горю !

Что имеем :


class TfrmReport = class(TForm)
//....

mskEdtStart: TMaskEdit;
mskEdtEnd: TMaskEdit;
//...
end;

procedure TfrmReport.FormCreate(Sender: TObject);
begin
// ...
mskEdtStart.EditMask := '##.##.##';
mskEdtStart.Text := '';
mskEdtEnd.EditMask := '##.##.##';
mskEdtEnd.Text := '';
// ...
end;

procedure TfrmReport.btnPreviewClick(Sender: TObject);
var
startDate, endDate: TDateTime;
// ...
begin
// ...
try
startDate := StrToDate(mskEdtStart.Text);
endDate := StrToDate(mskEdtEnd.Text);
except
...
end;
// ...
with frmMain.tblCard do begin
Filter := 'C_Date >= ' + DateToStr(startDate) + ' AND C_Date <= ' + DateToStr(endDate); <-------------- ТУТ ОШИБКА
Filtered := true;
end;
//...
end;
end;


C_Date - поле типа Date (Paradox)

Что за точку он там нашел ? что я делаю не правильно, подозревают что MaskEdit мне тут карину портит, но как ?!

ps если пробовать проводить в этом-же месте фильтрацию по другим полям, то все ок.


Эскизы прикрепленных изображений
Прикрепленное изображение

--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Поменял на TDate (startDate, endDate)

НО даже при таком раскладе всеравно ошибка таже самая :

(* TEST*)
startDate := Now;
endDate := Now;
(*TEST*)
with frmMain.tblCard do begin
Filtered := false;
Filter := 'C_Date >= ' + DateToStr(startDate) + ' AND C_Date <= ' + DateToStr(endDate);
Filtered := true;
end;







9-ки пробовал


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 19:59
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name