为RDLC分组添加序号

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

1 Dim count As Integer
2   public function GroupCount( reset As Boolean ) As Integer
3 if ( reset ) then
4 count = 0
5 end if
6 count = count + 1
7 return count
8   end function

 

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

= Code.GroupCount( False )

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

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

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

 

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

 

 

转载于:https://www.cnblogs.com/zgray/articles/1815357.html