Доступ к конкретной ячейке

[Gorin]

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

ну , это и есть вычисляемое поле -)
вот тебе пример.... Вводишь 2 поля, а 3-е вычисляется=)))
Table1.Edit;
Table1field1.Value := 12;
Table1field2.Value := 2;
Table1field3.Value := Table1field1.AsInteger * Table1field2.AsInteger ;
Table1.post;

или


Table1.edit;
Table1.Fields[0].Value := 12;
Table1.Fields[1].Value := 2;
Table1.Fields[2].Value := Table1.Fields[0].AsInteger * Table1.Fields[1].AsInteger ;
Table1.Post;

Значения 1 и 2 поля можешь вводить через какие-нибудь компоненты.....

Что ж я так криво обьясняю
То, что вы привели будет работать в зависимости от положения маркера. То есть я скажем ввожу это в событие OnCalcFields и он считает. Но мне нужно другое. Давайте так, есть колонки-они идут сверху вниз есть поля они слева- направо, а есть ячейка.. Мне надо чтобы в колонке первые 2 ячейки сверху вниз я ввожу а третья вычисляется, то есть это относиться к одному Field. Более того, мне надо чтобы это делалось в независимости от положения маркера

[Andrei]

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

Вычисляемые поля,понятно. Но мне надо, чтобы в одном поле можно было вводить и одновременно там были бы вычисляемые ячейки. То есть первые 3 ввел 4-сумма. И более того, чтобы конкретно это ячейка была ReadOnly.

IMHO: Этого в DBGrid сделать нельзя (хотя, если кому-то это удалось, пусть поделится, буду очень благодарен). Потому что он не отслеживает весь объем записей БД. В лучшем случае, для ускорения работы обрабатывает с десяток записей до и после выведенных на экране. У тебя же может возникнуть потребность обсчитать подобным образом несколько сотен записей базы данных.

Нечто подобное тому, что ты хочешь, можно замутить через DescisionCube с использованием SQL запросов. Но он создан для отображения результатов выборки и режим редактирования, кажется, не поддерживает. Сам я мало использовал этот компонент на практике . Только в ознакомительных целях и только для отображения. Но получилось!

Если данных у тебя не много, проще выгрузить ее в Excel и просматривать ее там.

[Pitbull]

короче я тебе подкину идею...Она карявая,конечно... но что-то работает....
вставляешь эту муть в цикл while table1.eof<>true then do......end;
и проверяешь(if then) на то, что номер строки кратный 3-м , для этого пользуйся оператором DIV..... переменную для div берешь ,например, j , которое перед этим приравниваешь к : j:=table1.recNo;
Перемещаешься по таблице table1.next; в начало table1.first....
Слепи как-то.. подумай....

А вот само тело,которое вставляешь в тело IF.... Then:
table1.MoveBy(-1);// перемещаешься на позицию перед
a:= Table1field2.Value ;//сохраняешь значение в переменную а
Table1.MoveBy(-1);// перемещаемся еще на одну позицию
b:= Table1field2.Value;//присваиваем значение....
Table1.MoveBy(2); возвращаемся в поле,куда нужно писать....
Table1.Edit;//режим редактирования табл.
Table1field2.value := a + b; // записывем
Table1.Post ;//сохранение....

Организуй принудительный выход из цыкла!!! потому-что зависать будет...
Братка, я тебе идею подал... А там решай сам....тут нужно как-то в цикле все сделать...

Можно еще воспользоваться Маркером (bookmark).... Но тут нужно думать....
В общем дерзай,братумба.....
table1.first;
while table1.eof<>true then do begin
if ...DIV... Then do begin{мой код} end;
запоминаешь позицию(bm1:=table1.bookmark) ,куда вставлял с помощью маркера и выходишь принудительно(не забудь объявить маркер bm1 : TbookmarkStr)... при следующем нажатии устанавливаешь позию на маркер: table1.bookmark := bm1;
end;


короче идея есть...Думай.... Може, я что-то и намудрил, просто времени мало ,братка... Напряги на работе.... Всех благ

[А. Долматов]

Ок. Если вопрос стоит так, то создай в своей таблице дополнительное пустое поле. Ведь, чтобы вводить и считать таблица должна быть в режиме редактирования, да и совсем забыл при перемещении по строкам грида данные автоматом записываются в таблицу, второе условие которое необходимо это обязательное заполнение обоих столбцов для подсчета, если какое-нить значение отсутствует, то ничего считаться не будет. соответственно ты вводишь в 2 колонки значения, после этого жмешь на кнопку расчитать и результаты последовательно записываешь в то самое дополнительное поле. Обновляешь таблицу путем её закрытия и открытия и вот тебе подсчет. Я дал только идею.

[Pitbull]

Сообщение от А. Долматов

Ок. Если вопрос стоит так, то создай в своей таблице дополнительное пустое поле. Ведь, чтобы вводить и считать таблица должна быть в режиме редактирования, да и совсем забыл при перемещении по строкам грида данные автоматом записываются в таблицу, второе условие которое необходимо это обязательное заполнение обоих столбцов для подсчета, если какое-нить значение отсутствует, то ничего считаться не будет. соответственно ты вводишь в 2 колонки значения, после этого жмешь на кнопку расчитать и результаты последовательно записываешь в то самое дополнительное поле. Обновляешь таблицу путем её закрытия и открытия и вот тебе подсчет. Я дал только идею.

я ему уже такое предлагал..его такое не устраивает