小弟要做一个统计,将表中的Price字段对应的数据进行相加,然后保存在一个窗体的Edit.Text 上.
请前辈们指点............
请前辈们指点............
解决方案 »
- 请推荐一个object pascal详细的语法教程
- 在delphi中如何把一个数据集的数据集里的某几个字段写到XML文件里,我上面没说清楚不好意思谢谢大家
- 一个查询语句问题
- 期末考试要做一个数据库管理程序...我想各位大哥给我点灵感
- 关于窗体中内置webbrowser的问题(本例子程序下载地址 http://web.ppcol.com/test.rar )
- 请教:关于模拟键盘按键
- Image中导入一个较小的图片(.ico),如何让这个图片充满Image?
- InternetExpress发布程序,各位大虾帮帮忙100分送上!在线等待!解决马上给分
- 送分
- 一个关于DBCOMBOBOX的问题
- HTML
- 谁知道这样功能的控件叫啥名
或 用TClientDataSet.
var
sum :integer;
begin
sum := 0;
adoquery1.first;
while adoquery1.eof do
begin
sum := sum + adoquery1.fieldbyname('price').asinteger;
adoquery1.next;
end;
end;
sum :integer;
begin
sum := 0;
DBGrid1.datasource.dataset.first;
while DBGrid1.datasource.dataset.eof do
begin
sum := sum + DBGrid1.datasource.dataset.fieldbyname('price').value;
DBGrid1.datasource.dataset.next;
end;
end;