Dbgridの横計

解決

---

Dbgridで横に数値を入力していき、右に横計を表示したいと思っています。
ONExitに↓のように書きましたが、マウスで下の行とかクリックすると、
ぜんぜん計算してくれません。どうすればいいかと・・・

procedure Tfm.DBGrid1Exit(Sender: TObject);
begin
  DBG.Edit;
  DBG.FieldByName('合計').AsInteger :=      DBG.FieldByName('数1').AsInteger
          + DBG.FieldByName('数2').AsInteger;
  DBG.post;

end;

編集    削除

---

DBGridの場合は、DataSet側で計算します。
例えば、TQueryに、'合計'を計算項目として加えて、のOnCulcイベントで
FieldByName('合計').asinteger :=
FieldByName('数1').AsInteger + FieldByName('数2').AsInteger;
とすればOK

編集    削除

---

HOtaさん。無事解決しました。ありがとうございます

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。