Delphi CxGrid 汇总（1）

最新推荐文章于 2020-12-23 20:41:19 发布

原创

最新推荐文章于 2020-12-23 20:41:19 发布 · 2.9k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #CxGrid

这篇博客总结了Delphi中使用CxGrid组件的各种技巧，包括统计功能、过滤下拉箭头的去除、小组件的自定义显示、主从表关系的设置以及数据导入导出到Excel、HTML等格式的操作方法。

delphi中cxGrid使用汇总（一）（转）

1. 去掉cxGrid中台头的Box
解决：在tableview1的ptionsview的groupbybox=false;

2．统计功能
解决：(1) tableview
1. tableview1的optionsviewfooter=ture
2.然后在cxGRid1的customize..中的summary 的footer.add需要合计的列kind= skSum
在Footer的第一列显示[合计:]
加一个Summary项,Column设为Grid的第一列,Kind设为skNone
在该Summary项的OnGetText事件中,输入:
procedure   TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText(
      Sender:   TcxDataSummaryItem;   const   AValue:   Variant;   AIsFooter:   Boolean;
      var   AText:   String);
begin
      AText   :=   '合计:';
end;

      (2) 按条件汇总:
在TableView的DataController->Summary->FooterSummary->OnSummary事件中,输入:
procedure   TFormExpense.tvExpenseDataControllerSummaryFooterSummaryItemsSummary(
      ASender:   TcxDataSummaryItems;   Arguments:   TcxSummaryEventArguments;
      var   OutArguments:   TcxSummaryEventOutArguments);
begin
      //得到字段名   TcxDBDataSummaryItem(