ActiveReportsでグループごとで改ページするには？

解決

---

ＳＱＬの結果であるコードが変わったらグループごとで改ページしたいのですが
方法がわかりません

データ内容

コード1  単価
  
1        1000
1        1100
2        1200
2        1300
2        1400
3        1500
3        1600

下記のようにしたいのですが。ご教授お願いします。

1ページ

グループヘッダー
1
詳細行
       1000
       1100

2ページ
グループヘッダー
2
詳細行
       1200
       1300
       1400
3ページ
グループヘッダー
3
詳細行
       1500
       1600

編集 削除

---

手元にActiveReportsがないので間違っていたらごめんなさい(^^
確かグループヘッダに[GroupValue]だったと思うのですが、プロパティが
用意されています。そこに値をセットすれば、値が変わるごとに改ページ
されますよ。
ただし、セットするタイミングは要注意だった気がする(^^;

編集 削除

---

GroupValueで調査させていただき下記の内容でできました。
S.S さんありがとうございました。

Private Sub ActiveReport_ReportStart()
    GroupHeader1.GroupValue = DataControl1.Recordset.Fields("コード1").Value
End Sub
Private Sub Detail_Format()
    If Not GroupHeader1.GroupValue = DataControl1.Recordset.Fields("コード1").Value Then     '行数による空打ち処理
       If NowRowCount < MaxLine Then
          LayoutAction = 2
          NowRowCount = NowRowCount + 1
          Exit Sub
       End If
       GroupHeader1.GroupValue = DataControl1.Recordset.Fields("コード1").Value
    Else
       GroupHeader1.GroupValue = DataControl1.Recordset.Fields("コード1").Value
    End If
End Sub

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。