报表排名函数

我们做报表的时候，经常遇到需要排名排序的功能。
然而排序功能我们直接用组件自带的就可以，就可以实现字段的排序。但是当我们需要排名的狮虎，就发现没有办法直接做到。因为排名需要获取整组数据。并且有时候数据还是零散的，需要我们先将数据汇总，在做排名。这个就比较难搞。今天就给大家分享一个自定义函数实现排名的功能。这个表达式还需要配合另一个函数来做排名。话不多说，直接上东西。
示例数据:

我们需要根据rankValue的数据来对rankField进行排名。
报表自定义函数教程:点这里
自定义函数:

1. ''' <function name="GetAggregatedRank">
   
2. ''' <culture>
   
3. ''' <label>GetAggregatedRank</label>
   
4. ''' <syntax>GetAggregatedRank(当前字段,字段数组，排名字段数组)</syntax>
   
5. ''' <description>获取字段排名</description>
   
6. ''' <example>Code.GetAggregatedRank("field,ToArray(field),ToArray(rankFeilds)")</example>
   
7. ''' </culture>
   
8. ''' </function>
   
9. Public Function GetAggregatedRank(targetId As String, idList As System.Collections.ArrayList, valueList As System.Collections.ArrayList) As Integer
   
10. 
    
11.     Dim myIdList As New System.Collections.ArrayList()
    
12.     Dim myvalueList As New System.Collections.ArrayList()
    
13. 
    
14.     ' Sum up values for each ID
    
15.     For i As Integer = 0 To idList.Count - 1
    
16.         If myIdList.IndexOf(idList(i)) = -1 Then
    
17.             myIdList.Add(idList(i))
    
18.             myvalueList.Add(valueList(i))
    
19.         Else
    
20.             Dim index As Integer = myIdList.IndexOf(idList(i))
    
21.             myvalueList(index) += CDbl(valueList(i))
    
22.         End If
    
23.     Next
    
24. 
    
25.     ' Find the index of the target ID
    
26.     Dim index1 As Integer = myIdList.IndexOf(targetId)
    
27. 
    
28.     If index1 = -1 Then
    
29.         Throw New ArgumentException("ID not found in the list")
    
30.     End If
    
31. 
    
32.     ' Get the sum of the target ID's values
    
33.     Dim value As Double = CDbl(myvalueList(index1))
    
34. 
    
35.     ' Determine the rank
    
36.     Dim rank As Integer = 1
    
37.     For Each val As Double In myvalueList
    
38.         If val > value Then
    
39.             rank += 1
    
40.         End If
    
41.     Next
    
42.    
    
43. 
    
44.     Return rank
    
45. End Function

复制代码

可以看到，在示例里面出现了这个:Code.GetAggregatedRank(field,ToArray(field,<scope>),ToArray(rankFeilds,<scope>))
也就是ToArray函数，因为在排名过程中，我们不仅要知道当前值，还需要知道当前的数据的一组值以及当前排名字段的数组。所以就不仅仅只传递当前值。

1. ToArray
   
2. 返回包含指定表达式的值的数组。
   
3. 语法
   
4. ToArray(expression, [scope])
   
5. 参数
   
6. expression - 用于计算汇总值的表达式
   
7. scope - 可选的计算范围

复制代码

我们看一下在报表的实现方法结果吧:
{Code.GetAggregatedRank(rankField, ToArray(rankField, "数据集1"), ToArray(rankValue, "数据集1"))}
实现效果:


实现Demo:
wyn-export-20240318122255.zip (8.82 MB, 下载次数: 524)

2024-3-18 12:23 上传

点击文件名下载附件