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 (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.