PB 電子会議室
| 発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) | 
|---|---|---|
| 23121 | 07/09/06 12:57:17 | RE(12):PB6.5: DWのカラムがプロテクトが掛かっているか? By ramlosa | 
| 23120 | 07/09/06 12:45:27 | RE(11):PB6.5: DWのカラムがプロテクトが掛かっているか? By katohtakeo | 
| 23119 | 07/09/06 12:45:05 | RE(10):PB6.5: DWのカラムがプロテクトが掛かっているか? By katohtakeo | 
| 23118 | 07/09/06 12:23:24 | RE(9):PB6.5: DWのカラムがプロテクトが掛かっているか? By ramlosa | 
| 23117 | 07/09/06 12:12:21 | RE(8):PB6.5: DWのカラムがプロテクトが掛かっているか? By ramlosa | 
| 23116 | 07/09/06 11:46:12 | RE(7):PB6.5: DWのカラムがプロテクトが掛かっているか? By katohtakeo | 
| 23115 | 07/09/06 11:30:06 | RE(6):PB6.5: DWのカラムがプロテクトが掛かっているか? By Hakofugu | 
| 23114 | 07/09/06 10:51:16 | RE(5):PB6.5: DWのカラムがプロテクトが掛かっているか? By ramlosa | 
| 23113 | 07/09/06 10:31:23 | RE(4):PB6.5: DWのカラムがプロテクトが掛かっているか? By ramlosa | 
| 23112 | 07/09/06 10:25:13 | RE(3):PB6.5: DWのカラムがプロテクトが掛かっているか? By ramlosa | 
| 23111 | 07/09/06 09:02:23 | RE(2):PB6.5: DWのカラムがプロテクトが掛かっているか? By Hakofugu | 
| 23110 | 07/09/06 09:02:17 | RE(1):PB6.5: DWのカラムがプロテクトが掛かっているか? By 梶 | 
| 23109 | 07/09/05 19:46:40 | PB6.5: DWのカラムがプロテクトが掛かっているか? By ramlosa | 
カテゴリ:スクリプトの記述
日付:2007年09月06日 11:46 発信者:katohtakeo
題名:RE(7):PB6.5: DWのカラムがプロテクトが掛かっているか?
  ramlosaさん、こんにちは。
解決策が見つかったようですが、私はこんな関数を使用しています。
ご参考までに、、、。
//引数1	DataWindow adw		
//引数2	String     as_col カラム
//引数3	String     as_p   プロパティ 例:プロテクトなら \".Protect\" を指定
//戻り値 String            プロパティの内容。式の場合は結果
String  ls_wk
Integer li_tab
n_cst_string ln_string //PFC文字解析サービス。PFCを使わない場合はコメントの内容で文字列変換を行う
IF al_row < 1 THEN RETURN \"\"
ls_wk = adw.Describe(as_col + as_p)
//プロパティが取得できない
IF ls_wk = \"!\" THEN RETURN \"\"
//式の場合、初期値と式の区切りがタブ(~t)となる
li_Tab = Pos(ls_wk,\"~t\",1)
//式でない場合はそのまま返す
IF li_Tab = 0 THEN RETURN ls_wk
//式の解析
ls_wk = Mid(ls_wk,li_Tab + 1)
ls_wk = ln_string.of_GlobalReplace(ls_wk,\"~\"\",\"\")   //式から ~\" を削除
ls_wk = ln_string.of_GlobalReplace(ls_wk,\"\'\",\"~~\'\") //式の \' を ~~\' に変換
ls_wk = \"Evaluate(\'\" + ls_wk + \"\',\" + String(al_row) + \")\"
RETURN adw.Describe(ls_wk)
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows XP
DBMS Oracle Net8
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle8i
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.




