Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];

Вниз

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

 
Константинов ©   (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 вся ветка

Форум: "Базы";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.041 c
1-1102348908
Logs
2004-12-06 19:01
2004.12.19
Размер файла


8-1094127115
VasRog
2004-09-02 16:11
2004.12.19
Векторная графика


14-1101515011
Andy BitOff
2004-11-27 03:23
2004.12.19
Дорогой IE, я ухожу от тебя навсегда


14-1100952113
ИМХО
2004-11-20 15:01
2004.12.19
Чемпионат Испании: турнир прогнозов 2


1-1102428966
гость
2004-12-07 17:16
2004.12.19
запись в файл





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский