Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.06.03;
Скачать: CL | DM;

Вниз

как обратиться к столбцу?   Найти похожие ветки 

 
Пун   (2007-05-14 15:44) [0]

Вот код:
function AgeStr(aDate: TDateTime): string;
var
Day:Double;
Years,Months:Integer;
begin
 Day:=Date-aDate;
 Years:=Trunc(Day/365.25);
 Day:=Day-(365.25 * Years);
 Months:=Trunc(Day/30.41);
 Result:=Format("%d лет,%d месяцев",[Years,Months]);
end;

procedure TForm1.TableNameOrderCalcFields(DataSet: TDataSet);
begin
Table3DR.AsString:=AgeStr(Table3Codr.AsDateTime);
end;

Значит в чём фишка.. Показывает в гриде сколько лет и месяцев. Как вы понимаете ето значение переменное и по етаму не сохраняется в таблице, а при запуске программы подсчитывает снова и снова. Мне необходимо Обратиться к этим записям уже посчитам после запуска проги (Обращаюсь я так:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add("select *");
Query1.SQL.Add("from Obsch.db");
Query1.SQL.Add("where God1 like "%"+Edit3.Text+"%"");
Query1.Open;
Но при поиске выводит сообщение, что не находит такого столбца God1 да и в самом то деле, в таб. Obsch.db его там и нету. Так как мне к этаму сталбцу обратиться?


 
Desdechado ©   (2007-05-14 15:54) [1]

Обращайся к датасету с обсчитанными полями, а не к БД, где этих калькулируемых полей и в помине нет.


 
Пун   (2007-05-14 16:01) [2]

Да я бы с удовольствием, но не уме:)) Может примерчик оставишь??? Какой нить маленький..


 
Desdechado ©   (2007-05-14 16:12) [3]

Table3DR.AsString



Страницы: 1 вся ветка

Текущий архив: 2007.06.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
6-1164279691
Warstone
2006-11-23 14:01
2007.06.03
Определения PID процесса, открывшего сокет


15-1177537024
Иксик
2007-04-26 01:37
2007.06.03
Товарищи, предлагаю встретить 9 Мая в Берлине, в Трептов-парке


4-1167142342
MasteroK
2006-12-26 17:12
2007.06.03
Как извлечь из буфера обмена первые N символов текста.


2-1179326134
Oleg_teacher
2007-05-16 18:35
2007.06.03
Фильтрацыя поля


2-1179130182
Cavalera
2007-05-14 12:09
2007.06.03
Как в седьмом Делфи запустить Install Shield