PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
21100 | 04/04/20 14:09:11 | RE(2):PB6.5: 改頁の動的変更 By なな |
21063 | 04/04/13 14:50:41 | RE(1):PB6.5: 改頁の動的変更 By kmaru |
21039 | 04/04/06 11:31:40 | PB6.5: 改頁の動的変更 By なな |
カテゴリ:データウィンドウ
日付:2004年04月13日 14:50 発信者:kmaru
題名:RE(1):PB6.5: 改頁の動的変更
ななさん、こんにちは。
私も「SyntaxFrom SQL」を使用しての方法は良く知りませんが、
「SyntaxFrom SQL」を使用しなくても、動的にチェックオン・オフにはできます。
?以下は考え方
1.DWで<グループごとに改ページ>をオンにしてエクスポートします。
確認にだけ使いますので、DWはオフに戻しておいて下さい。
2.エクスポートしたファイルをエディタで開きます。すると、
グループ化してある箇所で「newpage=yes」というキーワードが見つかるはずです。
それが、<グループごとに改ページ>がオンであるという記述です。
3.以上のことから「newpage=yes」が動的に入るようにしてあげれば、良いと判断出来ます。
?以下はソース内容の説明
4.LibraryExport関数を使用して、DWをエクスポートしたのと同じ内容を変数に格納する。
5.1でエクスポートしたファイルを確認すると、「newpage=yes」の直後に「header.color」
という文字があり、これをキーワードとして使って、4の変数の中身を切り分けます。
「header.color」の前にある文字列と、「header.color」以後の文字列の間に
「newpage=yes」を入れてあげます。
6.DWをCreateしてSetTransObjectしてあげた後に、RetrieveすればOKです。
?以下はソース(動的にはなってません)
long l_lng_num
String ls_dwsyn,ls_dwsyn2,l_str1,l_str2,ls_errors
ls_dwsyn = LibraryExport(\"D:\\AAA.pbl\", \"d_01\", ExportDataWindow!)
l_lng_num = Pos(ls_dwsyn, \"header.color\")
l_str1 = Mid(ls_dwsyn, 1, l_lng_num -1)
l_str2 = Mid(ls_dwsyn, l_lng_num, Len(ls_dwsyn))
ls_dwsyn2 = l_str1 + \" newpage=yes \" + l_str2
dw_meisai.Create(ls_dwsyn2, ls_errors)
dw_meisai.SetTransObject(SQLCA)
dw_meisai.Retrieve()
※もっと簡単な方法を知ってる人がいたら教えて下さい。
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows 2000
DBMS Sybase SQL Anywhere Client
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.