Работа в Grid't от TMS
Nick_serov © (2006-04-04 14:41:00)
Опишу проблему полностью:
У меня есть табличка 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:00) [1]
Как узнать положение в Таблице тока шо разобрался, банальная
вещь =)))
для колонки:
procedure TForm1.grid1Click(Sender: TObject);
begin
d := grid1.col;
edit2.Text := inttostr(d);
end;
для строки : grid1.row;
а вот как взять значение из последней колонки для всего
товара (Цена), по определенному её изменить и вставить в следующую
колонку остается пока проблемой!
Наверх 
ЧАТ |
Орешник |
|
