ник: kot_k_k
Таблица - 12 полей + 12 флажкоф, хай выбирает что хочет
в отчете делаем 12 полей (не видимые и пустые)- Поле_1, Поле_2 ... Поле_12
При открытии отчета программно заполняем
Private Sub Report_Open(Cancel As Integer)
dim dbs as dao.database
dim tab as dao.recordset
set dbs=currentdb
set tab=dbs.openrecordset ("таблица")
Pole=1 ' счетчик полей отчета
for i=1 to 12
FL_tmp="Флаг"+trim(Str(i))
if tab(FL_tmp)=true then ' проверка состояния Флаг1, Флаг2.... Флаг12
Pole_Name="Поле_"+trim(str(Pole)) ' имя поля в отчете
Pole_tmp="Поле"+trim(str(i)) ' имя поля в таблице
me(Pole_Name).ControlSource =tab(Pole_tmp).name ' в поле отчета загоняем нужное поле
Pole=Pole+1 ' счетчик полей в отчете
me(Pole_Name).visible=true ' поле делаем видимым
end if
next
end sub
|
выводить будет столько полей - сколько поставим флагофф.