VPF::Table in Paradox - Форум программистов

hope

Дата 19.10.2004, 13:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 20.8.2004

Репутация: нет
Всего: нет

with Table1 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('Flag').AsBoolean:=True;
Post;
Next;
end;
end;

подскажите - в последнею запись не ставится новое значение,
я что то не так делаю?

PS
sorry, если повторяюсь, но у меня не работает поиск

Akella

Дата 19.10.2004, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

во первых

Код

Post;
Next;

если за post стоит next, то post ставить не обязятельно, т.к. next вызывает post, если НД в состоянии редактирования

а у тебя никаких других событий не связано с этой таблицей?

попробуй

Код


with Table1 do begin
  First;
  repeat
    Edit;
    FieldByName('Flag').AsBoolean:=True;
    Next;
   while not eof;
end;

и попрорбуй через FOR (цикл)

Pakshin A. S.

Дата 19.10.2004, 16:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 2
Всего: 61

А я бы так сделал:

Код


with Table1 do
 begin
  First;
  while not Eof do
   begin
    FieldByName('Flag').AsBoolean:=True;
    Next
   end;
  Post;
  Last; // Переход на последнюю запись
  if not FieldByName('Flag').AsBoolean // Дополнительная проверка после цикла
   then
    begin
     Edit;
     FieldByName('Flag'.AsBoolean:=true;
     Post; 
 end;

hope

Дата 20.10.2004, 08:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 20.8.2004

Репутация: нет
Всего: нет

dsergey и Pakshin A. S. спасибо за участие.
Помог вариант с дополнительной проверкой последней записи.

PS
Но я все равно не поняла почему при редактировании такая фигня получается, х.з.

Pakshin A. S.

Дата 20.10.2004, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 2
Всего: 61

А переход по этому if'у действительно переходит? Т. е. последняя запись не меняется?

Pakshin A. S.

Дата 20.10.2004, 20:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 2
Всего: 61

По-моему, эта задача должна решеться через SQL гораздо проще:

Код


with Query1 do
  begin
   Close;
   SQL.Text:='Update TableName set Flag = true;';
   ExecSQL;
   Close
 end;

Это сообщение отредактировал(а) Pakshin A. S. - 20.10.2004, 20:43

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »