|
Вопрос # 6 334/ вопрос открыт / |
|
Здравствуйте, эксперты! Есть база данных на основе таблиц ClientDataSet как мне эти данные автоматом передать на Excel
не указывая на каждый бланк свои ячейки. Заранее благодарен.
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
Приложение: Переключить в обычный режим- K:= 0;
- If glavt.Fields[11].AsInteger > 1 then K := Tar2D.Fields[1].AsInteger else
- k:= Tar1D.Fields[1].AsInteger;
- Begin
- Ap.Cells[3,9] := GlavT.Fields[0].AsString;
- Ap.Cells[5,7] := GlavT.Fields[7].AsString;
- Ap.Cells[6,5] := IntToStr(GlavT.Fields[11].AsInteger);
- Ap.Cells[6,7] := DateToStr(GlavT.Fields[9].AsDateTime);
- Ap.Cells[6,9] := DateToStr(GlavT.Fields[10].AsDateTime);
- Ap.Cells[7,5] := IntToStr(k);
- Ap.Cells[7,7] := GlavT.Fields[11].AsString;
- Ap.Cells[7,9] := IntToStr(GlavT.Fields[20].AsInteger);
- Ap.Cells[9,9] := IntToStr(GlavT.Fields[14].AsInteger);
- Ap.Cells[9,5] := IntToStr(Notht.Fields[1].asinteger);
- Ap.Cells[9,7] := IntToStr(GlavT.Fields[13].AsInteger);
- Ap.Cells[10,9] := IntToStr(GlavT.Fields[15].asinteger + GlavT.Fields[16].asinteger+
- GlavT.Fields[17].asinteger + GlavT.Fields[18].asinteger + GlavT.Fields[19].asinteger);
-
-
 |
Вопрос задал: ZMihail (статус: Посетитель)
Вопрос отправлен: 15 декабря 2012, 13:13
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 16 декабря 2012, 20:40; участников в обсуждении: 1.
|
Мережников Андрей (статус: Абитуриент), 16 декабря 2012, 20:40 [#1]:
есть вариант передавать предварительно заполненный массив, но в данном случае это вряд ли подойдет - ячейки для заполнения идут не подряд
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
