掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBGridの一覧表示について (ID:48921)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
内容を変更してみました。 //※ 追加 以下のように変えて見ましたら問題が無くなったようなので暫く確認してみます。 ------------------------------------------------------------------- procedure TForm.Button1Click(Sender: TObject); begin DBGrid_init; // 二回目の表示 end; // 一覧表示 function TForm.DBGrid_init:integer; var sql_str :string; begin sql_str := 'select * from tablexx where code_no>0'; IBdatabase1.Connected := false; IBquery1.Close; DataSource1.DataSet := IBquery1; 〜略〜 IBquery1.SQL.Clear; IBquery1.SQL.Add(sql_str); DBGrid1.DataSource := DataSource1; IBquery1.Open; //--(※リスト作成)---------------------- // DBGridの行毎全データが直接見れないために対応するためのリストです。 IBquery1.DisableControls; //※ 追加 DBG_list.Clear; with IBquery1 do begin first; while not EOF do begin DBG_list.Add(IntToStr(IBQuery1.FieldByName('code_no').AsInteger)); Next; end; end; IBquery1.EnableControls; //※ 追加 //-------------------------------------- IBquery1.last ; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.