由于参数的原因,我做了分成几个章节的报告。在参数中,我们键入本章最后一行的数字。所以它看起来像这样:
如果我们带入参数“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"))
但是我不知道怎么做“从#到#”,这似乎很容易,但我找不到。