Проблема такая: ввожу значение поля Obyem через StringGrid в таблицу, все вводится и сохраняется, можно просмотреть значения таблицы через SQL Explorer. Закрываю программу, Delphi, смотрю свою таблицу опять же через SQL Explorer - а там ничего нет, пустая таблица. Код, собственно такой:
| Код |
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if Table2.FieldByName('Obyem').Value <> null then
Table2.Edit
else
Table2.Append;
Table2.FieldByName('Obyem').AsString := StringGrid1.Cells[1,Table1.RecNo];
Table2.Post;
Table2.Refresh;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Table2.ApplyUpdates;
end;
|
И еще такой вопрос: что такое ошибка At end of table? Она выскакивает иногда при нажатии на Button1. |