1

パラメータにより複数の章に分かれたレポートを作成しました。パラメータには、章の最後の行の番号を入力します。したがって、次のようになります。

パラメータ「100; 200; 400インチの全体的なレポートには10​​00行が含まれ、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"))

でも、「#から#へ」のやり方がわからないのは簡単そうですが、わかりません。

4

0 に答える 0