PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
3411 | 98/09/27 00:14:48 | RE:PB6: 印刷で1ページの行数をとってくる方法はありますか? By 松本商店 |
3365 | 98/09/24 09:51:41 | RE:むちゃくちゃ、ごりごりですけど・・・ By ラルクっち |
3356 | 98/09/22 18:56:11 | むちゃくちゃ、ごりごりですけど・・・ By こてちゅ |
3351 | 98/09/22 16:26:24 | RE:RE:RE:RE:PB6: 印刷で1ページの行数をとってくる方法はありますか? By ラルクっち |
3347 | 98/09/22 14:19:41 | RE:RE:RE:PB6: 印刷で1ページの行数をとってくる方法はありますか? By こてちゅ |
3346 | 98/09/22 13:31:56 | RE:RE:PB6: 印刷で1ページの行数をとってくる方法はありますか? By ラルクっち |
3345 | 98/09/22 12:34:17 | RE:PB6: 印刷で1ページの行数をとってくる方法はありますか? By こてちゅ |
3343 | 98/09/22 11:52:02 | PB6: 印刷で1ページの行数をとってくる方法はありますか? By ラルクっち |
カテゴリ:旧電子会議室
日付:1998年09月22日 18:56 発信者:こてちゅ
題名:むちゃくちゃ、ごりごりですけど・・・
ユーザイベントを作成(引数や返り値は設定しない)して、以下のスクリプトを記述し、Retrieveのあと呼び出してください。
ただし、データウィンドウでのグループ設定は、GROUP BY などでの指定ではなく、ペインタでのグループの作成でグルーピングしたいカラムを指定して行ってください。
また、このスクリプトは、データウィンドウの1ページのMAX行が分かっている場合に有効となります。
Long cnt_row
Long mod_row
Long cnt
Long max_row
Long ins_row
cnt_row = 1
max_row = 10
cnt_row = This.FindGroupChange(cnt_row + 1,1)
Do While cnt_row <> 0
mod_row = Mod(cnt_row,max_row)
ins_row = cnt_row
This.InsertRow(ins_row)
cnt_row ++
If mod_row > 8 Then
//MAX行まで空白行を打つ
FOR cnt = mod_row + 1 TO max_row
This.InsertRow(ins_row)
cnt_row ++
NEXT
End If
cnt_row = This.FindGroupChange(cnt_row + 1,1)
Loop;
既に同じ事をしてるかなぁ?
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows NT 4.0
DBMS Microsoft SQL Server Client 6.5
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Microsoft SQL Server 6.5
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.