добавить к опред столбцу DbGrid данные

[furstenberg]

Здравствуйте.1) Есть DbGrid со столбцами nazv,stoim и данными в них. Свойство RowSelect=true.Есть столбец kol, которого нет в базе. Неоходимо при выборе к-л строки записать данные в этот столбец(он используется для хранения временных данных). Возможно ли это?

2)Подскажите как пользоваться свойством dgMultiSelect, для выделнения нескольких строк:
if DBgrid1.SelectedRows.CurrentRowSele cted then
begin
if DBgrid1.SelectedRows.CurrentRowSele cted then
Bookmark1 := DBGrid1.Datasource.Dataset.GetBookm ark;{установили закладку}
end;
А как дальше её использовать?

[mihali4]

Неоходимо при выборе к-л строки записать данные в этот столбец

Есть такая штука - вычисляемые поля... Всего-то и надо - определить (создать) новое (Calculated) поле, описать алгоритм его вычисления в OnCalcFields для "ейного" датасета (то бишь Table или Query) и добавить это поле в список отображаемых в ДБГриде...

как пользоваться свойством dgMultiSelect

Все очень просто...
Выбираем в свойствах ДБГрида именно это свойство - dgMultiSelect и жмем пимпу F1 - получаем подсказку про нее, а там - аж пример готовый есть

[furstenberg]

В справке по dgMultiSelect я нашёл только описание свойств DbGrid-а, примера нет. Нашёл пример, который позволяет производить множественный выбор записей, но выделяется только две записи-последняя выбранная и текущая. Потыкался, но так я не смог выделить больше двух записей

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
x: word;
TempBookmark: TBookMark;
begin
DBGrid1.Datasource.Dataset.DisableC ontrols;
with DBgrid1.SelectedRows do
if Count <> 0 then
begin
TempBookmark := DBGrid1.Datasource.Dataset.GetBookm ark;
for x := 0 to Count - 1 do
begin
if IndexOf(Items[x]) > -1 then
begin
DBGrid1.Datasource.Dataset.Bookmark := Items[x];
showmessage(DBGrid1.Datasource.Data set.Fields[1].AsString);
end;
end;
end;
DBGrid1.Datasource.Dataset.GotoBook mark(TempBookmark);
DBGrid1.Datasource.Dataset.FreeBook mark(TempBookmark);
DBGrid1.Datasource.Dataset.EnableCo ntrols;
end;

[mihali4]

только описание свойств DbGrid-а, примера нет

Странно, а вот это:

SelectedRows, Count, Items, DataSource, FieldCount, Fields, GotoBookmark, DataSet example
The following example copies the selected rows in a db grid to a list box.

procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.Select edRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= '';
end;
end;

[furstenberg]

Спасибо!!!!!!!!!!