掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBGRIDの計算 (ID：12541)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
先日はありがとうござました。 今回、ＤＢＧＥＲＩＤで計算した値を後ろのフィールドにリアルタイムに代入したくおもいまして探してみた所、CalcFieldsを使うようなことが描いてあり下記のようにしてみたんですが ------------------------------------------------------ procedure TForm1.Table1CalcFields(DataSet: TDataSet); begin showmessage('きてます。'); dataset.FieldByName('total').Asinteger := dataset.FieldByName('point').AsInteger+dataset.FieldByName('point2').AsInteger; end; procedure TForm1.Table1AfterOpen(DataSet: TDataSet); begin with Table1 do begin OnCalcFields := Table1CalcFields; DisableControls; while (Eof = false) do Next; First; EnableControls; end; end; -------------------------------------------------------------- どうやら、Table1CalcFields のほうには命令がとどいていないようで 反映されません 別の方法でもＯＫですので A B C --------------------------- 1 kuruma 10 30 40 2 densya 10 11 21 3 aruki 2 3 5 ---------------------------- のようにＡ＋Ｂのフィールドの合計をＣに出して 表示させる方法はないでしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.