| VainahskiyPapa |
 Отправлено: 10.09.2003, 11:45 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 46
|
Здрасти. У меня следующая проблема: когда я пишу нижеследующий код мне выходит ошибка что мой код not in insert or edit form. хотя я пишу чтобы инсертил или едитил. А когда пишу вставить данные в таблицу которая находиться в вершине (т.е. вершина дерева связей) то ничего не говорит и просто вставляет. Почему так а?
void __fastcall TBorrowItem::BorrowBtnClick(TObject *Sender)
{
TLocateOptions SearchOptions;
SearchOptions << loPartialKey << loCaseInsensitive;
DataModule2->TblLoans->Insert();
DataModule2->TblItems->Edit();
DataModule2->TblLoans->Fields->FieldByName("id_title")->AsInteger=7;//DataModule2->TblItems->Fields->FieldByName("id")->AsInteger;
DataModule2->TblLoans->Fields->FieldByName("id_borrower")->AsInteger=7;//DataModule2->TblBorrowers->Fields->FieldByName("id")->AsInteger;
DataModule2->TblLoans->Fields->FieldByName("borrow_date")->AsString=DateToStr(DateTimePicker1->Date);
DataModule2->TblLoans->Fields->FieldByName("return_date")->AsString=DateToStr(DateTimePicker1->Date);
DataModule2->TblItems->Locate("id_title", 9, SearchOptions);
DataModule2->TblItems->Fields->FieldByName("available")->AsBoolean=false;
DataModule2->TblLoans->Post();
DataModule2->TblItems->Post();
} |
|
| Nick |
| Отправлено: 10.09.2003, 15:40 |
|
Машинист паровоза
Группа: Участник
Сообщений: 247
|
DataModule2->TblItems->Locate("id_title", 9, SearchOptions);
при любом переходе от записи к записи (в том числе и Locate) если запись находится в Edit mode автоматически выполняется Post
DataModule2->TblItems->Fields->FieldByName("available")->AsBoolean=false; |
|
