掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フィールドの合計を取得したい (ID:3263)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
はじめまして すずめです。 Field_1 Field_2 Field_3 03/01/03 AAA 10 03/02/03 BBB 50 03/03/03 CCC 20 というテーブル(Paradox)があったとします。 これをTTable、TDataSource、TDBGridを使ってTDBGridに表示しています。 このデータのField_3の合計を求めたいんですが、 現在は procedure TForm1.Button1Click(Sender: TObject); var Rec:Integer; begin Rec:= 0; Table1.First; while not Table1.Eof do begin Rec:= Rec + Table1.FieldByName('Field_3').AsInteger; Table1.Next; end; Label1.Caption:= IntToStr(Ret); end; としてるんですが、TDBGridのレコードのフォーカスが、 最終行に移動してしまいます。(当然でしょうが...) SQLを使うという方法もあるというのはわかったんですが、 どれをどのようにすればいいのかまったくわかりません。 具体的にどうしたらいいかご伝授ください。 Delphi5です。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.