永利最大(官方)网站

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

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

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

Country | City

重置分组序列后分组为：

City | Country

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

实现代码如下：

<pre>
&#39;Fetch the value of each group&#39;s DataField property  </pre>

<pre>
Dim grpsec As New GroupHeader  </pre>

<pre>
grpsec = CType(rpt.Sections(1), GroupHeader)&lt;/span&gt;  </pre>

<pre>
val1 = grpsec.DataField.ToString  </pre>

<pre>
&nbsp; </pre>

<pre>
grpsec = New GroupHeader  </pre>

<pre>
grpsec = CType(rpt.Sections(2), GroupHeader)  </pre>

<pre>
val2 = grpsec.DataField.ToString  </pre>

<pre>
&nbsp; </pre>

<pre>
&#39;Swap the DataField value  </pre>

<pre>
Dim grpsec1 As New GroupHeader  </pre>

<pre>
Dim grpsec2 As New GroupHeader  </pre>

<pre>
grpsec1 = CType(rpt.Sections(1), GroupHeader)  </pre>

<pre>
grpsec1.DataField = val2  </pre>

<pre>
&nbsp; </pre>

<pre>
grpsec1.Controls(0).DataField = val2  </pre>

<pre>
&nbsp; </pre>

<pre>
grpsec2 = CType(rpt.Sections(2), GroupHeader)  </pre>

<pre>
grpsec2.DataField = val1  </pre>

<pre>
&nbsp; </pre>

<pre>
grpsec2.Controls(0).DataField = val1 </pre>

 下载ActiveReports 报表最新版

文章转自：