Как не кручу - подсчет производится только по первой строке запроса. Исходные данные для выполнения модуля - запрос (выборка).
Dim FF(11, 100) As String
Dim k As Double
Dim PP(11, 100) As String
Dim u As Double
k = 0
u = 0
For j = 0 To 100
For i = 0 To 11
FF(j, i) = DLookup("Mon" & [M] + i, "[Табл1]", "[ComboDeptCode] = 3340.1000")
k = k + FF(j, i)
Next i
PP(j, i) = k
k = 0
u = u + PP(j, i)
Next j
Mont = u ...... и т.д.
Дело в том, что накопление и идет только по одной строке. Пробовал даже "отсылать" на следующую строку, При открытом запросе вижу- на след строку переводит, но вычисляет только по первой.
Как упразднить такое деяние - подскажите.
благодарю.

Запрос является источником строк...
PP(j, i) - необходим для промежуточных вычислений, поэтому там и сидит
k = 0 - обнуляется, иначе будет накопление при переходе, пока не получившимся, на след строку.
Сори, что тупо объяснил... Есть запрос как источник данных для отчета.
Из запроса с помощью функции вынимаются отпределенные столбцы (поэтому там и есть "Mon" & [M] + i, где вычисления номера столбца переводяться в его название (i - это и есть определенный номер столбца)), которые должны суммироваться. И это должно происходить по всем строкам запроса (табл).
ело запроса приводить не буду - накручен, да и запрос здесь непричем - что-то в модуле, а я не спец...

>ВС
открываю запрос и прохожу пошагово функцию, после опер. перевода строки - вижу,что маркер перешел....
>RR
в условии отбора пробовал...- тоже самое. В итоге сумма нужных столбцов по первой строке на всех строках

..GoToRecord..

>ВС
Я пробовал перевод, для того, чтобы самому посмотреть пошаговое суммиррование, потом убедившись, что это не влияет- убрал эту строку. Она стояла сразу за "u=..."

>Vsevolod V

1.Прошу прощения - вчера пришлось убежать по делам...
Функцию вызываю в поле отчета как "Данные поля"
2. Vsevolod FF(j, i) = DLookup("Mon" & [M] + i, "[Табл1]", "[ComboDeptCode] = " & Str(3340.1000 +j))

У меня не проходит - выдаёт ошибку "Несоответствие типов данных в условиях отбора"...