| 2018/06/08(Fri) 19:43:23 編集(投稿者)
>>フォームに設置しているオブジェクトのソース値を指定オブジェクトに
>>表示するには
>
> よく読み返したら、ソース値の読み取りなんですね。
>
> またハズシました。失礼しました。(@^^)/~~~
今度は大丈夫だと思います。
メソッド呼び出し 戻り値 = &戻り値, &オブジェクト名.ソース値取得( &ソース値，&取得モード )
↑このとおり。
名札 メイン
変数 整数{&番号}
変数宣言 局所，文字列｛ &オブジェクト名 ｝→ 変数宣言 局所，文字列｛ &オブジェクト名 = "tNo1" ｝
変数宣言 局所，整数 ｛ &ソース値 ｝
＊
手続き定義開始 番号::ﾌｫｰｶｽ取得(文字列 &喪失オブジェクト名)
&オブジェクト名 = &this
手続き実行 prc計算( )
メソッド呼び出し &this.ソース値取得(&番号,0)
if(&番号>0)
オブジェクト操作 @t番号.ソース = &番号
end
手続き定義終了
手続き定義開始 ﾌｫｰﾑ::ﾚｺｰﾄﾞ移動(長整数 &行番号，長整数 &総件数，長整数 &明細番号)
トレース出力 _&行番号, " ", _&明細番号
手続き実行 prc計算( )
手続き定義終了
手続き定義開始 prc計算( )
変数宣言 自動，整数｛ &戻り値, &取得モード ｝
メソッド呼び出し 戻り値 = &戻り値, &オブジェクト名.ソース値取得( &ソース値，&取得モード )
メソッド呼び出し @ﾌｫｰﾑ.変数変更()
手続き定義終了
＜追伸＞
フォームを開いた時にエラーしていたので、zip を差し替えました。
|
