Запись в ячейку ДБГрида

@glyk5 · Регистрация: 08.07.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте, что-то не пойму почему не работает?
Хочу добавить в выбранную ячейку значение "5"

Delphi

procedure TForm1.Button5Click(Sender: TObject);
begin
DBGrid1.DataSource.DataSet.Edit;
DBGrid1.Fields[DBGrid1.FieldCount].AsString:='5';
DBGrid1.DataSource.DataSet.Post;
end;

@droider · 12.11.2012, 23:31

Лови

Delphi

var
  Form1: TForm1;
  i:integer;
implementation
 
{$R *.dfm}
................
..................
 
procedure TForm1.GridCellClick(Column: TColumn);
begin
 i:=Grid.SelectedIndex; //определяем номер выделенной колонки
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Grid.DataSource.DataSet.Edit;
Grid.DataSource.DataSet.Fields.Fields[i].Value :=5; //добавляем в нее значение
Grid.DataSource.DataSet.Post;
end;
 
end.

@glyk5 · 13.11.2012, 14:09 **[ТС]**

Большое спасибо!!!

Добавлено через 5 минут
Еще вопрос.
Почему при изменении в DBGrid-е в ручную, после закрытия программы изменения не сохраняются в БД?

@droider · 13.11.2012, 14:51

Delphi

1	в ручную, после закрытия программы изменения не сохраняются в БД?

Сохраняются. Просто при ручном вводе нажми Enter и перейди на другую запись.
Программный ввод проверял по кнопке.

@glyk5 · 13.11.2012, 20:51 **[ТС]**

Спасибо

@glyk5 5 / 5 / 0 Регистрация: 08.07.2010 Сообщений: 233
	13.11.2012, 14:09 [ТС]	3
	Большое спасибо!!! Добавлено через 5 минут Еще вопрос. Почему при изменении в DBGrid-е в ручную, после закрытия программы изменения не сохраняются в БД? 0

@glyk5 5 / 5 / 0 Регистрация: 08.07.2010 Сообщений: 233
	13.11.2012, 20:51 [ТС]	5
	Спасибо 0

Опции темы