цикл по записям

[vladislav_m]

Здравствуйте! помогите пожалуйста организовать цикл..

Нужно чтоб цикл пробегал по всем записям 1 поля таблицы

[Stilet]

Что за таблица? Как ты к ней подключился?

[vladislav_m]

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

Что за таблица? Как ты к ней подключился?

Adoyuery -> datasource 1
Dbgrideh - > Datasource

Запросом выдираю 2 поля из таблицы "Заказ" .

Select [Дата завершения публикации] , [Осталось для публикации] From [Заказы]

на форме имеется DBDatetimepicker..

Делаю так для вычисления и занесения во вторую колонку значении :

DBGrideh1.Columns[1].Field.Value:=(DBGrideh1.Columns[0].Field.Value -(DBdatetimepicker1.Date))/7;
DBGrideh1.Columns[1].Field.Value:=Round(DBGrideh1.Columns[1].Field.Value);

Заносится только 1 запись.. Незнаю как организовать цикл чтобы все поля были вычислены и занесены.

[Аватар]

У DataSet куча методов для перемещения указателя записи. Вариант сканирования всех записей

DataSet.First;
while not DataSet.Eof do begin
  ...
  DataSet.Next;
end;

[vladislav_m]

Сообщение от Аватар

У DataSet куча методов для перемещения указателя записи. Вариант сканирования всех записей

DataSet.First;
while not DataSet.Eof do begin
  ...
  DataSet.Next;
end;

как раз таки вашим методом и пробую это провернуть..

[vladislav_m]

помучался, и решил проблему ну для новичка пока было проьблемой )))

вот решение, может кому нибудь понадобится

dbgrideh1.DataSource.DataSet.First;
while not dbgrideh1.DataSource.DataSet.Eof  do
begin
Adoquery1.Edit;
DBGrideh1.Columns[1].Field.Value:=(DBGrideh1.Columns[0].Field.Value -(DBdatetimepicker1.Date))/7;
DBGrideh1.Columns[1].Field.Value:=Round(DBGrideh1.Columns[1].Field.Value);
dbgrideh1.DataSource.DataSet.next;
end;

[Аватар]

grideh1.DataSource.DataSet и Adoquery1 в одном блоке кода - зачем? Или везде grideh1.DataSource.DataSet, или Adoquery1. И желательно Post. Метод Next хоть и автоматически выполняет его, но последняя запись останется в состоянии редактирования

[vladislav_m]

Сообщение от Аватар

grideh1.DataSource.DataSet и Adoquery1 в одном блоке кода - зачем? Или везде grideh1.DataSource.DataSet, или Adoquery1. И желательно Post. Метод Next хоть и автоматически выполняет его, но последняя запись останется в состоянии редактирования

спасибо, учту!