VPF::DBGrid + FireBird не могу редактировать ячейки

Frees

Дата 24.2.2011, 09:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

Цитата(goldstrong @ 24.2.2011, 11:57

)

Хотел поступить как проще... В InsertSQL датасета сделал следующее

так нельзя

Цитата(goldstrong @ 24.2.2011, 11:57

)

Получается, что COMMIT нужно вставлять в обработчик события..

в событии AfterPost

Код


procedure TForm1.IBDataSet1AfterPost(DataSet: TDataSet);
begin
  if IBDataSet1.Transaction.InTransaction then
    IBDataSet1.Transaction.CommitRetaining;
end;

--------------------

Кольцов Виктор Владимирович

goldstrong

Дата 25.2.2011, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 18.2.2011

Репутация: нет
Всего: нет

Спасибо за помощь.. И еще вопросик.. При добавлении новой записи в таблицу хотелось, чтобы одно поле было задано по умолчанию. Пробую это делать так

Код


procedure TfrmSimpSpr.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  if Button =  nbInsert then
  begin
    Label1.Caption := 'вставка....';
    DBGrid1.DataSource.DataSet.Edit();
    DBGrid1.DataSource.DataSet.FieldByName('FILID').AsInteger := 66;
    Tag := 1;
  end;
end;

Но когда заканчиваю вставку выдается Field 'FILID' must have a value.
Возможно ли вообще сделать так, как я хочу?? Если можно то как???

Добавлено через 8 минут и 44 секунды
Да и вот еще.. Почему-то это исключение возникает даже тогда, когда в поле FILID записываешь значение явно, т.е. стока InsertSql IDDataSet

Код


insert into EDIZM (ID, FILID, EID, INSERTDATE, INSERTUSER, EDITDATE, EDITUSER, TEXT, PRIM) values( :ID, 66, gen_id(eidkod,1), CURRENT_TIMESTAMP, CURRENT_USER, NULL, NULL, :TEXT, :PRIM)

goldstrong

Дата 28.2.2011, 10:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 18.2.2011

Репутация: нет
Всего: нет

Разобрался ... Сделал так

Код


procedure TfrmSimpSpr.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.FieldName = 'FILID' then
  if (Column.Field.IsNull) then
    Column.Field.AsInteger := 66;
end;

superVad

Дата 28.2.2011, 11:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15

goldstrong, я тебе в другой теме уже написал.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »