Скачать: CL | DM;

Простой вопросик. Доступ к полям БД   Найти похожие ветки 

← →
Константинов ©   (2004-11-23 00:12) [0]

Вопрос простейший, но я даже не знаю на что грешить.
Пытаюсь редактировать значения поля таблицы ( TDateTime ) c помощью DateTimePicker

//показываем компонент в нужном месте
procedure TForm1.DBDataInDrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdFocused in State) then
  begin
  if DBDataIn.SelectedField.FieldNo = 5 then
    begin
       DTPTemp.Left := DBDataIn.Left + Rect.Left + TabSheet1.Left;
       DTPTemp.Top  := DBDataIn.Top + Rect.Top + TabSheet1.Top;
       DTPTemp.Width := DBDataIn.Columns[3].Width + 4;
       DTPTemp.Date := Table1.FieldByName("Date").AsDateTime;
       DTPTemp.Visible := true;
       DTPTemp.BringToFront;
       DTPTemp.SetFocus;
    end;
  end;
end;

//пытаюсь записать значение даты
procedure TForm1.DTPTempExit(Sender: TObject);
begin
 Table1.FieldByName("Date").AsDateTime := DTPTemp.Date;
 DTPTemp.Visible := false;
end;

и ловлю error следующего содержания : "Table1: DataSet not in edit or insert mode"

Что я делаю не так? Объясните плиз балбесу...

---

← →
GanibalLector ©   (2004-11-23 01:19) [1]

>Table1: DataSet not in edit or insert mode"
Дык Table1.Edit или Table1.Insert если новая.ессесно post потом

---

← →
jack128 ©   (2004-11-23 01:22) [2]

procedure TForm1.DTPTempExit(Sender: TObject);
var
 f: boolean;
begin
f := Table1.State in [dsEdit, dsInsert];
if not f then
  Table1.Edit;
try
  Table1.FieldByName("Date").AsDateTime := DTPTemp.Date;
  DTPTemp.Visible := false;
  if not f then
    Table1.Post;
except
  if not f then
    Table1.Cancel;
  raise;
end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c