我正面临SSRS报告的问题,我试图生成数字以显示filds序列。我通过使用报告中的代码生成此数据。但它有两个主要问题。
1个虚拟数据 1.1虚拟数据 1.2虚拟数据 2个虚拟数据 2.1虚拟数据
Dim currentValue As Double
Public Function GetCounter(ByVal iCounter As Double, ByVal incrementCounter
As Boolean) As Double
If (incrementCounter = true) Then
iCounter = (iCounter + currentValue)
currentValue = (currentValue + 0.1)
End If
Return iCounter
End Function
但是根据我的子报告,我想生成像
这样的数字1个虚拟数据 1.1虚拟数据 1.1.1虚拟数据 1.1.1.1虚拟数据 1.1.1.2虚拟数据 1.1.2虚拟数据 1.1.2.1虚拟数据 1.1.2.2虚拟数据 1.2等等。
我无法了解如何使用subReport实现此目的。
第二个问题是。
答案 0 :(得分:0)
您可以使用以下自定义代码
Dim numbers = New Integer() {0, 0, 0, 0}
Public Function Seq(lev as Integer) As String
Select Case lev
Case 0
numbers(0) = numbers(0)+1
numbers(1) = 0
numbers(2) = 0
numbers(3) = 0
Return Cstr(numbers(0))
Case 1
numbers(1) = numbers(1)+1
numbers(2) = 0
numbers(3) = 0
Return Cstr(numbers(0)) & "." & Cstr(numbers(1))
Case 2
numbers(2) = numbers(2)+1
numbers(3) = 0
Return Cstr(numbers(0)) & "." & Cstr(numbers(1)) & "." & Cstr(numbers(2))
Case 3
numbers(3) = numbers(3)+1
Return Cstr(numbers(0)) & "." & Cstr(numbers(1)) & "." & Cstr(numbers(2)) &"." & Cstr(numbers(3))
End Select
End Function
group1的表达式为= Code.Seq(0),group2的表达式为= Code.Seq(1),... etc