Topic: Заполнить TDataSet данными из промежуточной таблицы GRID
Вот так не выходит.
var
FinansOtchetST: TDataSet;
iRow, qRow : integer;
begin
qRow := Otchet.TableGrid1.RowCount - 1;
for iRow := 0 to qRow do
begin
FinansOtchetST.Insert;
FinansOtchetST.FieldByName('StatusTranzakcii').AsString := Otchet.TableGrid1.Cells[0,iRow];
FinansOtchetST.Next;
end;