盒子论坛 v2.1

名称    价格                      用DBGrid 读出来是这样:
         ------------             _______________________________
内存     100     | 求             |名称           合计         |
内存     250     |                |`````````````````````````````|
内存     300     | 和             |内存           650           |
         ------------             |`````````````````````````````|
显卡     200                      |显卡           1700          |
显卡     500                      ```````````````````````````````
显卡     1000
----------------------------------------------
-

作者：

zsredmoon (=^@^=)	★☆☆☆☆	-
	盒子活跃会员

2003/12/14 9:40:44

1楼：

select 名称, sum(价格) as 合计 from 表名 group by 名称
----------------------------------------------

=^@^=

作者：

axingo (英文)	★☆☆☆☆	-
	普通会员

2003/12/14 13:49:08

2楼：

好像不行哦，可以写个代码给我看看吗？谢谢！

                用DBGrid 读出来是这样:
            _______________________________
            |名称           合计          |
            |`````````````````````````````|
            |内存           650           |
            |`````````````````````````````|
            |显卡           1700          |
            ```````````````````````````````
----------------------------------------------
-

作者：

linlinghuihui (欢乐八方)	★☆☆☆☆	-
	盒子活跃会员

2003/12/14 13:58:41

3楼：

是在一个表中查询吗？是的话就是那样的呀！
----------------------------------------------
-

作者：

axingo (英文)	★☆☆☆☆	-
	普通会员

2003/12/14 14:08:39

4楼：

是啊，我是这样写的呀
button1 oncleck事件：

with ADOQuery do
begin
  close;
  sql.clean;
  sql.add('select 名称, sum(价格) as 合计 from 报价 group by 名称
');
  open;
end;

----------------------------------------------
-

作者：

linlinghuihui (欢乐八方)	★☆☆☆☆	-
	盒子活跃会员

2003/12/14 14:38:42

5楼：

提示什么错误?
----------------------------------------------
-

作者：

zsredmoon (=^@^=)	★☆☆☆☆	-
	盒子活跃会员

2003/12/14 14:54:43

6楼：

sql.Clear;
not
sql.clean;
----------------------------------------------

=^@^=

作者：

zsredmoon (=^@^=)	★☆☆☆☆	-
	盒子活跃会员

2003/12/14 14:56:30

7楼：

改了这个就可以这个是我的测试的...

unit Form_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, ADODB;

type
  TForm1 = class(TForm)
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

with ADOQuery1 do
begin
  close;
  sql.Clear;
  sql.add('select 名称, sum(价格) as 合计 from 报价 group by 名称');
  open;
end;

end;

end.

----------------------------------------------

=^@^=

信息

登陆以后才能回复