Работа в Grid t от TMS

← →
Nick_serov (2006-04-04 14:41) [0]

Опишу проблему полностью:

У меня есть табличка Excel, я к ней обращаюсь

if
OD1.Execute then
begin
n := OD1.FileName;
ExAp1.Workbooks.Add(n,0);
ExW1.ConnectTo(ExAp1.ActiveWorkbook);

и гружу в Grid

for j := 1 to 9 do
begin
grid1.Cells[j,i] := ExAp1.Cells.Item[i,j].Value ;
end ;
ExW1.Close;

Появляется в Grid"e табличка с 9-ю колонками, в последней колонке отображается цена. Мне эту цену нужно изменить в зависимости от размера под определенный процент и поместить в следующую колонку. Вот как это сделать????

← →
Nick_serov (2006-04-04 14:42) [1]

Как узнать положение в Таблице тока шо разобрался, банальная вещь =)))

для колонки:

procedure TForm1.grid1Click(Sender: TObject);
begin
d := grid1.col;
edit2.Text := inttostr(d);
end;

для строки : grid1.row;

а вот как взять значение из последней колонки для всего товара (Цена), по определенному её изменить и вставить в следующую колонку остается пока проблемой!

Работа в Grid t от TMS Найти похожие ветки