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

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