Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подскажите плиз [D6, XP]


Страницы:   1 2

maverick_man ©   (2006-10-05 18:24:00) 

Народ подскажите плиз как сделать! Есть таблица , содержащая столбцы Дата начала Дата окончания. Как сделать, чтобы если в таблице имеется строки, ранее вводимой, то автоматически Дата начала ставилась равной Дате окончания в предыдущей строке, а если нет, то сегодняшнюю дату?
Пробовал вот так:
procedure TForm6.DBGrid1Enter(Sender: TObject);
Var
a: string;
begin
Table2.Edit;
try Table2.prior
except table2.Fields[5].AsString:=datetostr(now);
end;
table2.prior;
a:=Table2.Fields[7].AsString;
table2.Next;
Table2.Fields[5].AsString:=a;
end;

ругается...


maverick_man   (2006-10-05 21:45:00) [21]

Мастера, вопрос в силе=)


maverick_man   (2006-10-05 19:56:00) [22]

Если в таблице на данный момент уже имеются строки,то Дата начала ставилась равной Дате окончания в предыдущей строке, а если нет, то в Дату начала записывается сегодняшняя дата


Джо   (2006-10-05 19:46:00) [23]

>> чтобы если в таблице имеется строки, ранее вводимой
Теперь, пожалуйста, по-русски.


maverick_man   (2006-10-05 19:43:00) [24]

Мастера,ну подскажите начинающему!=))


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо