Вычисления в столбцах DBGrig

[Roman123654789]

У меня есть компоненты: ADOQuery, ADOConection, DataSourse, DBGrid и две таблицы сделаны в Access. В одну таблицу мы заносим данные (таблица 1) а во второй (таблица 2) выполняются вычисления (деление, сложение, умножение). Мне нужно из таблицы 1 данные разделить на данные, которые вписаны в таблицу 2.Как мне это сделать? И как мне сделать чтобы при запуске программа таблица 2 очищалась?

[<- DelpHIFanat ->]

Очистку таблицы при запуске программы я бы сделал с помощью SQL-запроса (ADOQuery) в обработчике создания, т. е. OnCreate, главной формы (или модуля данных). А что и как вычислять, мне не понятно (не понятно разбиение: зачем данные из таблицы1, в таблицу2). Разумнее данные для вычисления хранить в одной таблице или создать запрос (запрос можно создать в Access и как таблицу подключить к БД, только его нужно будет периодически обновлять), который будет вычислять данные.

[Roman123654789]

Сообщение от <- DelpHIFanat ->

Очистку таблицы при запуске программы я бы сделал с помощью SQL-запроса (ADOQuery) в обработчике создания, т. е. OnCreate, главной формы (или модуля данных). А что и как вычислять, мне не понятно (не понятно разбиение: зачем данные из таблицы1, в таблицу2). Разумнее данные для вычисления хранить в одной таблице или создать запрос (запрос можно создать в Access и как таблицу подключить к БД, только его нужно будет периодически обновлять), который будет вычислять данные.

Мне нужно две таблицы, так как в одной будет храниться информация а во второй будут происходить вычисления!

[<- DelpHIFanat ->]

Сообщение от Roman123654789

Мне нужно две таблицы, так как в одной будет храниться информация а во второй будут происходить вычисления!

Тогда я бы эти таблицы связал связью "один-к-одному", а вычисления производил бы в обработчике OnCalcFields таблицы2.

[Roman123654789]

Сообщение от <- DelpHIFanat ->

Тогда я бы эти таблицы связал связью "один-к-одному", а вычисления производил бы в обработчике OnCalcFields таблицы2.

Они 'связаны'! Скажите пожалуйста какой код мне прописать?

[<- DelpHIFanat ->]

Сообщение от Roman123654789

Они 'связаны'! Скажите пожалуйста какой код мне прописать?

Примерно такой:

ADOTable2.Fields[№ поля таблицы2].AsInteger(AsCurrency или, там AsReal):=
  ADOTable2.Fields[№ поля таблицы2].AsInteger(AsCurrency или, там AsReal) <+, -, *, /> //требуемое для поля таблицы2 действие (естественно, без угловых скобок)
ADOTable1.Fields[№ поля таблицы2].AsInteger(AsCurrency или, там AsReal);

Можно и немного по-другому: обращаться к полю с помощью метода FieldByName['имя поля'], или же обращаться к каждому полю непосредственно: так, как оно называется в наборе данных (редакторе полей), т. е., как к самостоятельному компоненту. Приложите исходник, если работать не будет.