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 報表最新版

文章轉自：