掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
アプリ実行中のDBGrid表のハミ出し表示を避けるには (ID:41754)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
下記のソースコードで、＊印の２行を追加したところ 解決しました。 お世話になりました。 function BRChosa(BTO: Integer): Integer; var N: Integer; TNB: Integer; begin for N := 1 to 10 do begin BRT[N,1] := 0; end; with DataModule1.DBISAMQuery2 do begin ＊ Form2.DBGrid2.Datasource := nil; TNB := Fields[0].AsInteger; N := 0; while not EOF do begin if Fields[6].AsInteger = BTO then begin N := N + 1; BRT[N,1] := Fields[0].AsInteger; // TNB BRT[N,2] := Fields[2].AsInteger; // TES BRT[N,3] := Fields[3].AsInteger; // COL BRT[N,4] := Fields[4].AsInteger; // PST end; Next; end; Result := N; First; MoveBy(TNB - 1); // カーソル戻し ＊ Form2.DBGrid2.Datasource := DataModule1.DataSource2; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.