powered by simpleCommunicator - 2.0.40     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с выгрузкой в excel по определенному шаблону
3 сообщений из 3, страница 1 из 1
Проблема с выгрузкой в excel по определенному шаблону
    #39527083
dima_18
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем добрый день!

Помогите, пожалуйста разобраться со следующей вещью: выгружаю данные в excel (шаблон прикладываю), таблицу из которой выгружаю также прикладываю.
Надо выгрузить по определенной схеме:
цикл в цикле.
Т.е. сначала идут фио , потом строчкой ниже и со сдвигом в столбцах идут название услуг, а к каждой услуге строчкой ниже в свою очередь, идут должности исполнителей данной услуги и стоимость ее. Как все прошло, идем ко второй услуге и уже для нее делаем все тоже самое, т.е. в цикле перечисляем исполнителей данной услуги.

В шаблоне я показываю как это я хочу.
Пишу цикл как я это делаю:

scan
if lcPrev != super_res_vib.fiob
.cells(lnRowNum,1).Value = super_res_vib.fiob
lnRowNum = lnRowNum+1
if lcPrev2 != super_res_vib.nazpol_a
.cells(lnRowNum1,4).Value = super_res_vib.nazpol_a
lnRowNum1 = lnRowNum1+1
ENDIF
.cells(lnRowNum1,9).Value = super_res_vib.nazpol_b
.cells(lnRowNum1,12).Value = super_res_vib.sum_pers
lcPrev2 = super_res_vib.nazpol_a
lcPrev = super_res_vib.fiob
endif
endscan


Всем большое спасибо.
...
Рейтинг: 0 / 0
Проблема с выгрузкой в excel по определенному шаблону
    #39527084
dima_18
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сама таблица из которой я выгружаю.
...
Рейтинг: 0 / 0
Проблема с выгрузкой в excel по определенному шаблону
    #39527095
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так попробуй
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
scan
   if lcPrev != super_res_vib.fiob
      .cells(lnRowNum,1).Value = super_res_vib.fiob
      lnRowNum = lnRowNum+1
      lcPrev = super_res_vib.fiob
      lcPrev2 = '***'
   endif
   if lcPrev2 != super_res_vib.nazpol_a
       .cells(lnRowNum,4).Value = super_res_vib.nazpol_a
       lnRowNum = lnRowNum+1
       lcPrev2 = super_res_vib.nazpol_a
   ENDIF
   .cells(lnRowNum,9).Value = super_res_vib.nazpol_b
   .cells(lnRowNum,12).Value = super_res_vib.sum_pers
   lnRowNum = lnRowNum+1
endscan
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с выгрузкой в excel по определенному шаблону
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]