财务软件版1楼: 就是说如何在DBdride最后一行显示各列的总计？
还有一个问题，想请教一下各位，DBgride类似的第三方控件那个好用，谢谢！

2楼: wwdbgrid用起来还行.. 如免费超市管理软件

3楼: 我想DBGRID只是一个容器,,,,,你要的还是在表里做吧

然后在DBGRID里就显示了

4楼: 我试了一下，DbGride 确实不好添加纪录
这样吧，你在每次合计的时候 添加一条纪录然后写入合计
只是不提交数据库而已

5楼: 我试了一下，DbGride 确实不好添加纪录
这样吧，你在每次合计的时候 添加一条纪录然后写入合计
只是不提交数据库而已

6楼: ExpressQuantumGrid 4 比较好用（也就是cxGrid）

财务软件版7楼: http://www.2ccc.com/article.asp？articleid=1459

8楼: 使用汇总语句啊
select case when (grouping(...) = 1) then 总计
else isnull(..., 空) end as ... ,
case ......
SUM(...) AS 总...
FROM youtable ,
GROUP BY ...,... WITH ROLLUP

这样可以得出一个汇总表，你再根据自己需要把不要的行删掉就好了。

9楼: 用DBGirdEH吧！

10楼: To:HuangJH

我试了一下，DbGride 确实不好添加纪录
这样吧，你在每次合计的时候 添加一条纪录然后写入合计
只是不提交数据库而已
-------------------------------------------------------
我也想过这样做，可是，这个表格允许用户单击某些字段（如销售额、毛利额）按降序排序，如果重新排序的话，那总计就成了第一行，怎么办？

11楼: 我的意思是用两条语句
第一。现排序
执行完之后，再
第二。合计
你看怎样？

12楼: 另外一种方法，在DBGide最下边模拟一行，用来显示各个字段的合计

希望下边文章对你有启发：我没有具体给你实现出来，解决不了告诉我！

[blue]看下面的文章:
在Delphi的DBGrid中插入其他可视组件
中国地质大学
张兵兵
---- Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBGrid中获得焦点网格可以是其它可视数据组件以方便用户呢？其实我们可以通过在DBGrid中插入其他可视组件来实现这一点。

---- Delphi对DBGrid处理的内部机制，就是在网格上浮动一个组件——DBEdit组件。你输入数据的网格其实是浮动DBEdit组件，其他未获得焦点地方不过是图像罢了。所以，在DBGrid中插入其他可视组件就是在网格上浮动一个可视组件。因此任何组件，包括从简单的DbCheckBox到复杂的对话框，都可以在DBGrid中插入。下面就是一个如何在DBGrid中插入DBComboBox组件的步骤，采用同样的办法可以插入其他组件。

---- 1、 在Delphi 4.0中新建一个项目。

---- 2、 分别拖动的Data Access组件板上DataSource、Table，Data Controls组件板上DBGrid，DBComboBox四个组件到Form1上。

---- 3、 设置各个组件的属性如下：

rcf1 对象 属性 设定植
Form1 Caption ＇＇在DBGrid中插入SpinEdit组件示例＇＇
DataSource1 DataSet Table1

Table1 DatabaseName ＇＇DBDEMOS＇＇
TableName ＇＇teacher.DBF＇＇
Active True

DBGrid1 DataSource DataSource1

DBComboBox1 DataField ＇＇SEX＇＇
DataSource DataSource1
Visible False
Items.Strings ＇＇男＇＇| ＇＇女＇＇

---- 注意：我在这里用了Teacher.dbf，那是反映教职工的性别，只能是“男”或者是“女”。

---- 4、 DrawDataCell事件是绘制单元格，当获得焦点网格所对应的字段与组合框所对应的字段一致时，移动组合框到获得焦点的网格上，并且使组合框可视，从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下：

procedure TForm1.DBGrid1DrawDataCell
(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if (gdFocused in State) then
begin
if (Field.FieldName = DBComboBox1.DataField ) then
begin
DBComboBox1.Left := Rect.Left + DBGrid1.Left;
DBComboBox1.Top := Rect.Top + DBGrid1.top;
DBComboBox1.Width := Rect.Right - Rect.Left;
DBComboBox1.Height := Rect.Bottom - Rect.Top;
DBComboBox1.Visible := True;
end;
end;
end;

---- 5、 DBGrid指定单元格未获得焦点时不显示DBComboBox，设置DBGrid1的OnColExit事件如下：

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
If DBGrid1.SelectedField.FieldName
= DBComboBox1.DataField then
begin
DBComboBox1.Visible := false;
end;
end;

---- 6、 当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格，并显示DBComboBox，但是DBComboBox并没有获得焦点，数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个 Windows API函数将数据输入传输到DBComboBox上，从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下：

procedure TForm1.DBGrid1KeyPress
(Sender: TObject; var Key: Char);
begin
if (key < > chr(9)) then
begin
if (DBGrid1.SelectedField.FieldName
=DBComboBox1.DataField) then
begin
DBComboBox1.SetFocus;
SendMessage(DBComboBox1.Handle,
WM_Char, word(Key), 0);
end;
end;
end;

---- 程序在中文Windows 98，Delphi 4.015 下调试通过。希望本文能使你可以更加方便快捷的开发数据库应用程序。[/blue] 如济南进销存管理系统

13楼: 用DBgridEH总算解决了，这个控件不错，很好用。[:)][？]但是又一个新问题产生了：DBgridEH好象不支对计算列的排序，我指的是ADOQuery中定义的计算列。除了修改SQL语句外，有没有更好的的解决办法？