Главная страница
    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.044 c
1-1102423590
Zloy
2004-12-07 15:46
2004.12.19
Как проверить Edit, введен текст или цифры?


9-1092945950
miek
2004-08-20 00:05
2004.12.19
GLScene: переключение режимов рендеринга


4-1099124045
Arnold
2004-10-30 12:14
2004.12.19
Как програмно изменить региональные стандарты??


3-1100674911
lightix
2004-11-17 10:01
2004.12.19
dbf


1-1101961607
klyg
2004-12-02 07:26
2004.12.19
WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER)





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский