ник: Дядя Федор
Сделать моно. Вставляешь в прим.отчета поля типа Scol1,.....,ScolN и примерно так формируешь данные
в цикле по всем колонкам Fields(i - 1)
sourcestring = "=DSUM(" & kvc & "[" & rs.Fields(i - 1).Name & "]" & kvc & "," & _
kvc & rs.Name & kvc & "," & _
kvc & "[f1]=" & "'O'" & kvc & ")"
If Not IsNull(OpenArgs) Then sourcestring = _
Mid(sourcestring, 1, Len(sourcestring) - 2) & " AND (" & Me.OpenArgs & ")" & kvc & ")"
'''Debug.Print sourcestring
On Error Resume Next
Me("SCol" & i).ControlSource = sourcestring
а во вложении прмер динамического отчета по перекрестному запросу