为RDLC分组添加序号

RDLC就一个RowNumber的函数能用来做序号，但是往往我们更需要的是分组序号，而非行序号。不说废话了，先上代码。

Dim count As Integer
 public function GroupCount(reset As Boolean) As Integer
    if(reset) then
        count=0
    end if
    count=count+1
    return count
 end function

 

将以上代码添加在报表的自定义代码区域（RDLC的自定义代码代码必须是是VB6.0的代码），之后在要显示序号的地方调用类似如下的代码：

=Code.GroupCount(False)

这样就会自增长，要重置序号的时候将参数设置为True即可。

附上判断分组改变的方法：

First(Fields!FieldName.Value,"RowGroupName")=Fields!FieldName.Value

 

为True则为分组改变了，否则则分组未变。