パラメータにより複数の章に分かれたレポートを作成しました。パラメータには、章の最後の行の番号を入力します。したがって、次のようになります。
パラメータ「100; 200; 400インチの全体的なレポートには1000行が含まれ、1-100、101-200、201-400、401-1000の4つの章が作成されます。私はこれを行うためにこのレポートコードを使用しました:
Dim ggg As Integer=0
Function Set_ggg(a as Integer) as integer
ggg=ggg+a
return ggg
End Function
Function Get_ggg() as Integer
return ggg
End Function
Function Null_ggg() as Integer
ggg=0
return ggg
End Function
Function nGr(n as Integer) as Integer
Dim prev as Integer
Dim t as Integer
Dim i As Integer
Dim UsedN as Integer()={0}
prev=0
For i = 0 To Report.Parameters!N_Sprav.Value.GetUpperBound(0)
If prev<n and n<=Report.Parameters!N_Sprav.Value(i) Then 'and Array.IndexOf(UsedN, n)=-1
exit for
Else
prev=Report.Parameters!N_Sprav.Value(i)
End If
Next
UsedN(UsedN.GetUpperBound(0))=n
ReDim Preserve UsedN(UsedN.GetUpperBound(0)+1)
if IsNothing(i) then
i=0
End if
Return i
End Function
次に、行数と範囲を表示する必要がある式を使用して、すべての章の後にフッターを作成する必要があります。前述の例では、次のように表示する必要があります。#1から#100までの100行、#101から#200までの100行、#201から400までの200行、#401から#1000までの600行。
この方法で行数を表示することに成功しました。CStr(Count(Fields!ID__з_п_ок.Value,"Gr1"))
でも、「#から#へ」のやり方がわからないのは簡単そうですが、わかりません。