1

由于参数的原因,我做了分成几个章节的报告。在参数中,我们键入本章最后一行的数字。所以它看起来像这样:

如果我们带入参数“100; 200; 400”,整体报告包含 1000 行,它将创建 4 个章节:1-100、101-200、201-400 和 401-1000。我使用此报告代码来执行此操作:

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