亦有资源网

ActiveReports 报表分组用于在报表中统计或归类数据，分组允许您以某一字段为分类进行浏览报表。本篇文章我们将阐述如何在不重新设计整个表单的前提下，重置分组序列。

ActiveReports分组使用DataField属性实现分组功能，所以我们可以通过修改 DataField 进行分组的顺序重置。

使用附件中的示例，你会发现分组序列默认为：

Country | City

重置分组序列后分组为：

City | Country

点击重新排序按钮即可进行上述改变。

实现代码如下：

'Fetch the value of each group's DataField property  
Dim grpsec As New GroupHeader  
grpsec = CType(rpt.Sections(1), GroupHeader)  
val1 = grpsec.DataField.ToString  
? 
grpsec = New GroupHeader  
grpsec = CType(rpt.Sections(2), GroupHeader)  
val2 = grpsec.DataField.ToString  
? 
'Swap the DataField value  
Dim grpsec1 As New GroupHeader  
Dim grpsec2 As New GroupHeader  
grpsec1 = CType(rpt.Sections(1), GroupHeader)  
grpsec1.DataField = val2  
? 
grpsec1.Controls(0).DataField = val2  
? 
grpsec2 = CType(rpt.Sections(2), GroupHeader)  
grpsec2.DataField = val1  
? 
grpsec2.Controls(0).DataField = val1 

本站文章除注明转载外，均为本站原创或翻译