| ■6465 / ) |
Re[8]: フォームでの最終行表示について
|
□投稿者/ 尾形 -(2011/06/06(Mon) 08:11:33)
| どうも、こんにちは
自分の場合は、ライブラリでこんな感じでやってます
手続き定義開始 Lib_終端行表示位置調整()
** 終端行へジャンプした時の、表示位置を調整するルーチン
条件 ( #終端行 <> 1 ) 手続き終了
変数宣言 数値{&j総件数,&j表示行数}
代入 &j総件数 = #総件数
オブジェクト操作 &j表示行数 = @ﾌｫｰﾑ明細部.表示行数
条件 ( &j総件数 >= &j表示行数 )\
メソッド呼び出し @ﾌｫｰﾑ.明細番号設定( &j表示行数 )
条件 ( &j総件数 < &j表示行数 )\
メソッド呼び出し @ﾌｫｰﾑ.明細番号設定( &j総件数 + 1 )
手続き定義終了
|
|
