Вычисляемые поля

← →
Beethoven © (2004-08-17 11:52) [0]

Поставил в форму компоненты: Table, datasource, dbgrid
table1.DatabaseName:= ExtractFilePath(Application.ExeName);
table1.TableName:="test.dbf";
table1.fieldbyname("stt").calculated:=true;
table1.fieldbyname("stt2").calculated:=true;
table1.Active :=true;

procedure TForm1.Table2CalcFields(DataSet: TDataSet);
begin
table1.fieldbyname"summa"):=table1.fieldbyname"stt").value*table1.fieldbyname("stt2").value;
end;

Выходит ошибка "table1.stt field not found"

Не пойму почему может не туда поставил?
Может из-за типа БД, но мне точно нужен фокспровский

← →
Anatoly Podgoretsky © (2004-08-17 11:56) [1]

Тебя не обманывают, сказано нет, значит такого поля нет.

← →
Beethoven © (2004-08-17 12:01) [2]

В том то и дело что существует такое поле, я использую ее в других процедурах она нормально работает

← →
dolmat (2004-08-17 12:02) [3]

Сначала в Table надо создать эти поля и лучше на стадии разработки

← →
Anatoly Podgoretsky © (2004-08-17 12:05) [4]

Beethoven © (17.08.04 12:01) [2]
В других процедурах это поле существует.

← →
46_55_41_44 © (2004-08-17 12:06) [5]

> table1.DatabaseName:= ExtractFilePath(Application.ExeName);

Слушай ExtractFilePath тебе выдаст путь к exe файлу... а имя файла БД где????

← →
dolmat (2004-08-17 12:06) [6]

procedure TForm1.Table2CalcFields(DataSet: TDataSet);
begin
table1.fieldbyname"summa").??????????:=table1.fieldbyname"stt").value*table1.fieldbyname("stt2").value;
end;

← →
46_55_41_44 © (2004-08-17 12:07) [7]

УУУУУУУУУУППППСССС... пардон...

← →
Beethoven © (2004-08-17 12:09) [8]

> 46_55_41_44 © (17.08.04 12:06) [5]
>
> > table1.DatabaseName:= ExtractFilePath(Application.ExeName);
>
> Слушай ExtractFilePath тебе выдаст путь к exe файлу... а
> имя файла БД где????

table1.DatabaseName:= ExtractFilePath(Application.ExeName);
table1.TableName:="test.dbf";

> dolmat (17.08.04 12:02) [3]
> Сначала в Table надо создать эти поля и лучше на стадии
> разработки

В том то и дело что она есть, физически сущеествует

Anatoly Podgoretsky
???????????????

← →
Beethoven © (2004-08-17 12:10) [9]

> dolmat (17.08.04 12:06) [6]
> procedure TForm1.Table2CalcFields(DataSet: TDataSet);
> begin
> table1.fieldbyname"summa").??????????:=table1.fieldbyname"stt").value*table1.fieldbyname("stt2").value;
> end;

До этого программа просто не доходит

← →
афвуд (2004-08-17 12:12) [10]

Вопрос не совсем в тему:
А что любое поле, даже существующее реально в базе можно превратить в calculated и баловаться с ним сколько хочешь?

← →
Anatoly Podgoretsky © (2004-08-17 12:14) [11]

Это только твои слова против слов Дельфи

← →
Beethoven © (2004-08-17 12:18) [12]

> А что любое поле, даже существующее реально в базе можно
> превратить в calculated и баловаться с ним сколько хочешь?

А что нельзя сделать то поле которое нужно сделать вычисляемым

> Anatoly Podgoretsky © (17.08.04 12:14) [11]

Может ты и прав но все таки но задача стоит из-за этого :)

← →
афвуд (2004-08-17 12:23) [13]

> А что нельзя сделать то поле которое нужно сделать вычисляемым

Можно. Но это поле реально существует в таблице? Или оно просто вычисляемо и уже существует? Тогда оно бы не выдавало ошибки. Следовательно тебе нужно сначала его создать(это поле), прежде чем обращаться или оно появляется после table1.Active :=true;.

Поле реально существует в файле
а после активирования таблицы программа говорит при открытом датасете нельзя

← →
афвуд (2004-08-17 13:57) [17]

> Что? Ты хоть понимаешь разницу между реальными и виртуальными
> (расчетными) полями.

Не понимает имхо.

Вычисляемые поля Найти похожие ветки