20.04.2011, 08:51
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Цитата:
|
Сообщение от Sobol
все вчера сделал. Кому интересно выложу код.
n:= form1.DBGrid1.SelectedField.FieldNo;
form1.Edit1.Text:= intToSTR(n);
for i:=0 to n do
begin
Sheet.Cells[2,3]:=form1.TTable1.Fields.Fields[1].AsString;
Sheet.Cells[6,2]:=form1.TTable1.Fields.Fields[3].AsString;
Sheet.Cells[6,3]:=form1.TTable1.Fields.Fields[4].AsString;
Sheet.Cells[6,4]:=form1.TTable1.Fields.Fields[5].AsString;
Sheet.Cells[7,4]:=form1.TTable1.Fields.Fields[6].AsString;
Sheet.Cells[8,4]:=form1.TTable2.Fields.Fields[5].AsString;
n:=n+1;
end;
|
расскажите зачем "красные" строки нужны? |