掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TTableでエラーを回避するには？ (ID：3680)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いつもお世話になります。 DBGrid1にTable1（Paradox型のデータベース）の内容を表示させ、DBGrid上のあるレコードを選択し、Button1Clickで選択行のレコードをEdit1に表示させるようにしています。（また、DBNavigaterを使用し、データの編集、削除などもしています。） そこで、データを削除した直後に、DBGrid1のレコードをClickするなどして選択することなく、Button1をClickすると、"レコード/キーは削除されました"とエラーになってしまいます。 この場合は、レコードが選択されていない場合に当たらないのでしょうか？ よろしくご指導くださいｍ（_ _）ｍ procedure TForm1.Button1Click(Sender: TObject); var i, j: Integer; s: string; begin //DBGrid で選択されている行をEdit1にコピーします。 if DBGrid1.SelectedRows.Count>0 then with DBGrid1.DataSource.DataSet do for i:=0 to DBGrid1.SelectedRows.Count-1 do begin GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i])); for j := 0 to FieldCount-1 do begin if (j>0) then s:=s+', '; s:=s+Fields[j].AsString; end; Edit1.Text:=s; s:= '';
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.