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