Здравствуйте! Я написала код,чтобы в DBGrid можно было в одной из ячеек выбрать значения из другой таблицы посредством выпадающего списка. Система выдает следующую ошибку:
ADOTable1 cannot perform this operation on an open dataset
Вот блок кода:
Код:
procedure TForm5.FormCreate(Sender: TObject);
begin
with ADOTable1 do
begin
ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
ExtractFileDir(ParamSTR(0)) + '\db.mdb;' +
'Mode=ReadWrite;Persist Security Info=False';
TableName:= 'Страхование граждан';
Active:= true;
First;
while not Eof do
begin
DBGrid1.Columns.Items[6].PickList.Add(FieldValues['ФИО']);
Next;
end;
Active:= false;
TableName:= 'Прием и выплаты денежных средств';
end;
end;
Ошибку ставит на строчку
TableName:= 'Страхование граждан';