cxGrid用法-最新

Posted 【麦麦提敏】

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了cxGrid用法-最新相关的知识,希望对你有一定的参考价值。

cxGrid用法步

1.你先放一个cxGrid,设置好View,设置View.DataController连接的DataSource 2.激活DataSource连接的DataSet,双击cxGrid,点击Retrieve Fields,取得所有的Column 3.设置View的OptionsView.Footer=True,OptionsView.GroupFooters=True,这是为了把分组小计和总计面板显示出来 4.将“订单号”字段拖到cxGrid上方的分组面板(GroupbyBox),将数据按“订单号”分组。这时你会发现单身所有的数据都缩起来了,如果想使所有的数据都展开,可以设置View.DataController.Options.dcoGroupsAlwaysExpanded=True 5.设置分组小计:把View.DataController.Summary.DefaultGroupSummaryItems点开,新增一个Item,Column属性在下拉里选择“数量”字段,FieldName属性为空,Format属性可以设置数值的显示格式,Kind属性下拉skSum加总,Position属性一定要选择spFooter。 6.设置总计:把View.DataController.Summary.FooterSummaryItems点开,新增一个Item,Column属性在下拉里选择“数量”字段,FieldName属性为空,Format属性可以设置数值的显示格式,Kind属性下拉skSum加总,Position属性一定要选择spFooter。 大功告成,按F9看一下胜利果实吧。 再奉送一个技巧,在Form1再放一个TcxGridPopupMenu控件,就在cxGrid控件旁边的那个,把TcxGridPopupMenu的Grid属性设置成你的cxGrid。 然后运行程序,在运行状态,点击Grid上的所有地方,左键或右键,你都会有意外收获。

(1)动态设置显示格式
procedure SetDisplayFormat(ACtrlData: TClientDataSet;
  TbView: TcxGridDBTableView);
var
  i: integer;
begin
  if ACtrlData.RecordCount <= 0 then Exit;
  try
    TbView.ClearItems;
    ACtrlData.First;
    for i := 0 to ACtrlData.RecordCount - 1 do
    begin
      if ACtrlData.FieldByName(‘SQBF_DisplayInGrid‘).AsString = ‘1‘ then //在表格中显示
      with TbView.CreateColumn do
      begin
        DataBinding.FieldName := ACtrlData.FieldByName(‘SQBF_FieldName‘).AsString;
        Caption := ACtrlData.FieldByName(‘SQBF_Caption‘).AsString; //字段中文标题
        Hint := ACtrlData.FieldByName(‘SQBF_Hint‘).AsString;
        Width := ACtrlData.FieldByName(‘SQBF_Width‘).AsInteger;
        HeaderAlignmentHorz := taCenter;
      end;
      ACtrlData.Next;
    end;
  except
    on E: Exception do
      SaveLog(‘设置显示格式时出错:‘ + E.Message);
  end;
end;

(2)显示行号
procedure TFmQueryBase.cxDBViewMasterCustomDrawIndicatorCell(
  Sender: TcxGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
  FValue: string;
  FBounds: TRect;
begin
  FBounds := AViewInfo.Bounds;
  if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
  begin
    ACanvas.FillRect(FBounds);
    ACanvas.DrawComplexFrame(FBounds, clBlack, clBlack, [bBottom, bLeft, bRight], 1);
    FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index+1);
    InflateRect(FBounds, -3, -2); //Platform specific. May not work on Linux.
    ACanvas.Font.Color := clBlack;
    ACanvas.Brush.Style := bsClear;
    ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
    ADone := True;
  end;
end;
(3)设置显示格式,我的项目要求先动态添加字段,这时不知道字段类型,所以设置DisplayFormat不方便,我还没有找到好方法。
所以采用打开数据集后再设置:
procedure TFmQueryBase.cdsMasterAfterOpen(DataSet: TDataSet);
var
  i: Integer;
begin
  for i := 0 to cxDBViewMaster.DataController.DataSet.FieldCount -1 do
  begin
    if cxDBViewMaster.DataController.DataSet.Fields[i] is TNumericField then
    begin
      if Pos(‘AMOUNT‘, UpperCase(cxDBViewMaster.DataController.DataSet.Fields[i].FieldName)) > 0 then
      begin
        TNumericField(cxDBViewMaster.DataController.DataSet.Fields[i]).DisplayFormat := ‘#,##0.000‘;
        Continue;
      end;
      if Pos(‘QUANTITY‘, UpperCase(cxDBViewMaster.DataController.DataSet.Fields[i].FieldName)) > 0 then
      begin
        TNumericField(cxDBViewMaster.DataController.DataSet.Fields[i]).DisplayFormat := ‘#,##0.000‘;
        Continue;
      end;
       if Pos(‘MONEY‘, UpperCase(cxDBViewMaster.DataController.DataSet.Fields[i].FieldName)) > 0 then
      begin
        TNumericField(cxDBViewMaster.DataController.DataSet.Fields[i]).DisplayFormat := ‘#,##0.00‘;
        Continue;
      end;
   end;
  end;
end; 



2007-7-19 12:48:54    
 查看评语&raquo;&raquo;&raquo;     

 2007-7-19 12:53:09    别人的,转载http://www.showding.cn/item/cxGrid__182526.aspx

最近在学习使用cxGrid,安装的版本是ExpressQuantumGrid   Suite   v5.10   
  我发现这个控件功能虽然强大,但是非常难用。   
    
  现在我手头就有几个问题还没解决:   
  1)主从模式下导出Excel中文会产生乱码,而且从表内容没有导出。   
  我不知道是不是因为我的字段名包括单引号的原因。   
  导出代码:ExportGrid4ToExcel(FileName,   cxGrid);   
    
  2)主从模式下通过按钮对从表添加/删除行,代码怎么写。   
  附:单表添加/删除行的代码   
  procedure   TFormAccount.cxButtonNewClick(Sender:   TObject);   
  begin   
      Self.tvAccount.DataController.Append;   
      Self.tvAccount.Columns[0].Focused   :=   True;   
      cxGrid.SetFocus;   
  end;   
    
  procedure   TFormAccount.cxButtonDeleteClick(Sender:   TObject);   
  begin   
      if   Self.tvAccount.DataController.RowCount   =   0   then   
          Exit;   
      if   Application.MessageBox(‘确认删除当前记录?‘,   ‘确认删除‘,   
          MB_YesNo   +   MB_IconQuestion)   =   IDNO   then   
          Exit;   
      Self.tvAccount.DataController.DeleteFocused;   
  end;   
    
  3)动态创建主从结构出错(Compiler没错,运行时出现系统错误0000000018),   
  我使用了二个ADOStoreProcedure作主从表   
  代码如下:   
  var   
      Level:   TcxGridLevel;   
      GridView:   TcxGridDBTableView;   
  begin   
      Level   :=   cxGrid1.Levels[0].Add;   
      GridView   :=   TcxGridDBTableView(cxGrid1.CreateView(TcxGridDBTableView));   
      GridView.DataController.DataSource   :=   Self.dsDetail;   
    
      GridView.DataController.KeyFieldNames   :=   ‘PurchOrderID;POLineNbr;PromiseDate;ReceiverDate‘;   
      GridView.DataController.MasterKeyFieldNames   :=   ‘VendorID‘;   
      GridView.DataController.DetailKeyFieldNames   :=   ‘VendorID‘;   
      GridView.DataController.DataModeController.SmartRefresh   :=   True;   
    
      GridView.OptionsCustomize.ColumnHiding   :=   True;   
      GridView.OptionsCustomize.ColumnsQuickCustomization   :=   True;   
      GridView.OptionsData.Deleting   :=   False;   
      GridView.OptionsData.Inserting   :=   False;   
      GridView.OptionsView.Indicator   :=   True;   
      Level.GridView   :=   GridView;   
    
      GridView   :=   TcxGridDBTableView(cxGrid1.Levels[0].GridView);   
      GridView.DataController.KeyFieldNames   :=   ‘VendorID‘;   
      GridView.OptionsView.GroupByBox   :=   False;   
    
      //显示主表内容   
      tvResult.BeginUpdate;   
      tvResult.ClearItems;   
      tvResult.DataController.CreateAllItems;   
      tvResult.EndUpdate;   
    
      //显示明细表内容   
      GridView   :=   TcxGridDBTableView(cxGrid1.Levels[0].Items[0].GridView);   
      GridView.BeginUpdate;   
      GridView.ClearItems;   
      GridView.DataController.CreateAllItems;   
      GridView.DataController.Refresh;   
      GridView.EndUpdate;   
  end;   
  


此楼回复Re:  
--------------------------------------------------------------------------------

小技巧:用代码展开/收缩主从结构   
  Self.tvDepartment.ViewData.Expand(True);   
  Self.tvDepartment.ViewData.Collaspe(True);   
  注:tvDepartment为主表对应的TableView


此楼回复Re:  
--------------------------------------------------------------------------------

你说的这几个问题我也遇到过。   
  第一个问题是编码的问题,修改了其中关于编码的函数,OK.   
  第二个问题在cxGrid的社区可以找到解答,但从表必须满足某种条件,例如关键字排序。   
  第三个问题的解决办法,你可以尝试在动态创建的代码前后加上:   
  grid.beginupdate;   
  ...   
  grid.endupdate   
  来解决。


此楼回复Re:  
--------------------------------------------------------------------------------

没用过   
  不要经常使用三方控件


此楼回复Re:  
--------------------------------------------------------------------------------

to   tttk(网络芝麻):   
  第一个问题:如何修改啊,贴出代码   
  第二个问题:没搜到啊   
  第三个问题:试一下再说


此楼回复Re:  
--------------------------------------------------------------------------------

不要经常使用三方控件   
  ======================   
  我感觉不用cxGrid的话,没必要用Delphi了,呵呵


此楼回复Re:  
--------------------------------------------------------------------------------

樓上這話是不是有點問題?DELPHI能做得事情很多很多,難道非要用CXGRID?CXGRID不是用DELPHI做出來得?


此楼回复Re:  
--------------------------------------------------------------------------------

没用过.....


此楼回复Re:  
--------------------------------------------------------------------------------

回复人:   zxkid(没有人会像我这样...)   (   )   信誉:101     2006-01-06   16:58:00     得分:   0       
      
      
        不要经常使用三方控件   
  ======================   
  我感觉不用cxGrid的话,没必要用Delphi了,呵呵   
        
      
  **********   
  楼主乃天人也!!


此楼回复Re:  
--------------------------------------------------------------------------------

呵呵


此楼回复Re:  
--------------------------------------------------------------------------------

cxGrid比较不错,我也使用过导出到Excel,没有遇到你说的乱码   
    
  主从表也没有问题的,其实跟单表操作还不是一回事


此楼回复Re:  
--------------------------------------------------------------------------------

up


此楼回复Re:  
--------------------------------------------------------------------------------

没用过cxGrid,以后考虑


此楼回复Re:  
--------------------------------------------------------------------------------

楼主乃天人也!!   
  =============================   
  Delphi下有cxGrid,   .NET下有XtraGrid,   它们都是同一公司出的。   
  迟早都会转到.NET,所以。。。


此楼回复Re:  
--------------------------------------------------------------------------------

路过


此楼回复Re:  
--------------------------------------------------------------------------------

用过,挺好,只会使用最简单的。


此楼回复Re:  
--------------------------------------------------------------------------------

发一个邮件给我,我把解决乱码后的源代码发一分给你,放到你的项目文件夹下即可。   
  [email protected]


此楼回复Re:  
--------------------------------------------------------------------------------

第二个问题:https://www.devexpress.com/Support/Center/default.aspx?view=ViewIssue&issueid=B2691


此楼回复Re:  
--------------------------------------------------------------------------------

谢谢tttk(网络芝麻)     
    
  第二个问题:我现在直接让用户用导航条的删除/添加按钮了。根据你给的网址上的内容我知道大概该怎么写了,有空再试试。   
    
  第一个问题:不光是乱码问题,还有从表内容没导出的问题。   
  只有一个表的话是不会出现乱码的。   
    
  第三个问题:还没来得及试。


此楼回复Re:  
--------------------------------------------------------------------------------

第一个问题:看了一下帮助,原来cxGrid不支持主从表的导出,只能导出主表(顶层表)的内容。晕


此楼回复Re:  
--------------------------------------------------------------------------------

贴一些小技巧,希望与各位使用cxGrid的朋友共同交流   
  各位有什么好个技巧也可以贴出来:   
    
  技巧二:在内置右键菜单的后面增加菜单项   
    
  首先应在Form上加一个cxGridPopupMenu控件   以启用右键菜单   
  UseBuildInPopupMenus设为True   
    
  procedure   TFormItemList.FormCreate(Sender:   TObject);   
  var   
      AMenu:   TComponent;   
      FMenuItem,   FSubMenuItem:   TMenuItem;   
  begin   
      AMenu   :=   nil;   
      if   cxGridPopupMenu.BuiltInPopupMenus.Count   =   0   then   
          Exit;   
      AMenu   :=   cxGridPopupMenu.BuiltInPopupMenus[0].PopupMenu; //第一个内置右键菜单(表头菜单)   
      if   Assigned(AMenu)   and   AMenu.InheritsFrom(TPopupMenu)   then   
      begin   
          TPopupMenu(AMenu).AutoHotkeys   :=   maManual;         //手动热键   
    
          //-------------------------   
          FMenuItem   :=   TMenuItem.Create(Self);   
          FMenuItem.Caption   :=   ‘-‘;   
          FMenuItem.Name   :=   ‘miLineForGroup‘;   
          TPopupMenu(AMenu).Items.Add(FMenuItem);   
    
          //展开所有组   
          FMenuItem   :=   TMenuItem.Create(Self);   
          FMenuItem.Name   :=   ‘miExpandAllGroup‘;   
          FMenuItem.Caption   :=   ‘展开所有组(&X)‘;   
          FMenuItem.OnClick   :=   miExpandAllGroupClick;   
          TPopupMenu(AMenu).Items.Add(FMenuItem);   
    
          //收缩所有组   
          FMenuItem   :=   TMenuItem.Create(Self);   
          FMenuItem.Name   :=   ‘miCollapseAllGroup‘;   
          FMenuItem.Caption   :=   ‘收缩所有组(&O)‘;   
          FMenuItem.OnClick   :=   miCollapseAllGroupClick;   
          TPopupMenu(AMenu).Items.Add(FMenuItem);   
    
          //-------------------------   
          FMenuItem   :=   TMenuItem.Create(Self);   
          FMenuItem.Caption   :=   ‘-‘;   
          TPopupMenu(AMenu).Items.Add(FMenuItem);   
    
          //过滤面板   
          FMenuItem   :=   TMenuItem.Create(Self);   
          FMenuItem.Name   :=   ‘miFilterPanel‘;   
          FMenuItem.Caption   :=   ‘过滤面板(&P)‘;   
          //自动显示   
          FSubMenuItem   :=   TMenuItem.Create(Self);   
          FSubMenuItem.Name   :=   ‘miFilterPanelAuto‘;   
          FSubMenuItem.Caption   :=   ‘自动(&A)‘;   
          FSubMenuItem.RadioItem   :=   True;   
          FSubMenuItem.GroupIndex   :=   5; //指定同一组   
          FSubMenuItem.Checked   :=   True;   
          FSubMenuItem.OnClick   :=   miFilterPanelClick;   
          FMenuItem.Add(FSubMenuItem); //加入二级子菜单   
          //总是显示   
          FSubMenuItem   :=   TMenuItem.Create(Self);   
          FSubMenuItem.Name   :=   ‘miFilterPanelAlways‘;   
          FSubMenuItem.Caption   :=   ‘总是显示(&W)‘;   
          FSubMenuItem.RadioItem   :=   True;   
          FSubMenuItem.GroupIndex   :=   5;   
          FSubMenuItem.OnClick   :=   miFilterPanelClick;   
          FMenuItem.Add(FSubMenuItem);   
          //从不显示   
          FSubMenuItem   :=   TMenuItem.Create(Self);   
          FSubMenuItem.Name   :=   ‘miFilterPanelNerver‘;   
          FSubMenuItem.Caption   :=   ‘从不显示(&N)‘;   
          FSubMenuItem.RadioItem   :=   True;   
          FSubMenuItem.GroupIndex   :=   5;   
          FSubMenuItem.OnClick   :=   miFilterPanelClick;   
          FMenuItem.Add(FSubMenuItem);   
          TPopupMenu(AMenu).Items.Add(FMenuItem);   
    
          //自定义过滤   
          FMenuItem   :=   TMenuItem.Create(Self);   
          FMenuItem.Name   :=   ‘miCustomFilter‘;   
          FMenuItem.Caption   :=   ‘自定义过滤(&M)‘;   
          FMenuItem.OnClick   :=   miCustomFilterClick;   
          TPopupMenu(AMenu).Items.Add(FMenuItem);   
    
          //过滤管理器   
          FMenuItem   :=   TMenuItem.Create(Self);   
          FMenuItem.Name   :=   ‘miFilterBuilder‘;   
          TPopupMenu(AMenu).Images.AddImage(FormMain.ImageListExtend,   44); //添加图标图像   
          FMenuItem.ImageIndex   :=   TPopupMenu(AMenu).Images.Count   -   1; //指定图标序号   
          FMenuItem.Caption   :=   ‘过滤管理器‘;   
          FMenuItem.OnClick   :=   Self.miFilterBuilderClick;   
          TPopupMenu(AMenu).Items.Add(FMenuItem);   
    
          //---------------------   
          FMenuItem   :=   TMenuItem.Create(Self);   
          FMenuItem.Caption   :=   ‘-‘;   
          TPopupMenu(AMenu).Items.Add(FMenuItem);   
    
          //导出   
          FMenuItem   :=   TMenuItem.Create(Self);   
          FMenuItem.Name   :=   ‘miExport‘;   
          TPopupMenu(AMenu).Images.AddImage(FormMain.ImageListExtend,   37);   
          FMenuItem.ImageIndex   :=   TPopupMenu(AMenu).Images.Count   -   1;   
          FMenuItem.Caption   :=   ‘导出(&E)‘;   
          FMenuItem.OnClick   :=   Self.miExportClick;   
          TPopupMenu(AMenu).Items.Add(FMenuItem);   
    
          //打印   
          FMenuItem   :=   TMenuItem.Create(Self);   
          FMenuItem.Name   :=   ‘miPrint‘;   
          FMenuItem.Caption   :=   ‘打印(&P)‘;   
          TPopupMenu(AMenu).Images.AddImage(FormMain.ImageListExtend,   14);   
          FMenuItem.ImageIndex   :=   TPopupMenu(AMenu).Images.Count   -   1;   
          FMenuItem.OnClick   :=   Self.miPrintClick;   
          TPopupMenu(AMenu).Items.Add(FMenuItem);   
      end;   
  end;   
    
  procedure   TFormItemList.miExportClick(Sender:   TObject);   
  var   
      FileName,   FileExt,   msg:   String;   
  begin   
      if   Self.aqyQuery.IsEmpty   then   
      begin   
          msg   :=   ‘没有导出数据...‘;   
          Application.MessageBox(PChar(msg),   PChar(Application.Title),   
              MB_OK   or   MB_IconWarning);   
          Exit;   
      end;   
    
      Self.SaveDialogExport.Filter   :=   ‘Excel文件   (*.xls)|*.xls|XML文件   (*.xml)|*.xml‘   
          +   ‘|文本文件   (*.txt)|*.txt|网页文件   (*.html)|*.html‘;   
      Self.SaveDialogExport.Title   :=   ‘导出为‘;   
    
      if   not   Self.SaveDialogExport.Execute   then   
          Exit;   
    
      FileName   :=   Self.SaveDialogExport.FileName;   
      FileExt   :=   LowerCase(ExtractFileExt(FileName));   
      if   FileExt   =   ‘.xls‘   then   
          ExportGrid4ToExcel(FileName,   Self.cxGrid1)   
      else   if   FileExt   =   ‘.xml‘   then   
          ExportGrid4ToXML(FileName,   Self.cxGrid1)   
      else   if   FileExt   =   ‘.txt‘   then   
          ExportGrid4ToText(FileName,   Self.cxGrid1)   
      else   if   FileExt   =   ‘.html‘   then   
          ExportGrid4ToHTML(FileName,   Self.cxGrid1)   
      else   
      begin   
          msg   :=   ‘不支持的导出文件类型...‘;   
          Application.MessageBox(PChar(msg),   PChar(Application.Title),   
              MB_OK   or   MB_IconError);   
          Exit;   
      end;   
    
      msg   :=   ‘导出完成...‘;   
      Application.MessageBox(PChar(msg),   PChar(Application.Title),   
          MB_OK   or   MB_IconInformation);   
  end;   
    
  procedure   TFormItemList.miPrintClick(Sender:   TObject);   
  begin   
      //打印   
      Self.dxComponentPrinter.Preview(True,   Self.dxComponentPrinterLink1);   
  end;   
    
  procedure   TFormItemList.cxGridPopupMenuPopup(ASenderMenu:   TComponent;   
      AHitTest:   TcxCustomGridHitTest;   X,   Y:   Integer;   var   AllowPopup:   Boolean);   
  begin   
      if   GetHitTypeByHitCode(AHitTest.HitTestCode)   =   gvhtColumnHeader   then //右击列标题时   
      begin   
          //if   tvResult.DataController.Groups.GroupingItemCount   >   0   then   
          if   tvResult.GroupedColumnCount   >   0   then //有分组时显示   
          begin   
            TMenuItem(Self.FindComponent(‘miLineForGroup‘)).Visible   :=   True;   
            TMenuItem(Self.FindComponent(‘miExpandAllGroup‘)).Visible   :=   True;   
            TMenuItem(Self.FindComponent(‘miCollapseAllGroup‘)).Visible   :=   True;   
          end   
          else   
          begin   
            TMenuItem(Self.FindComponent(‘miLineForGroup‘)).Visible   :=   False;   
            TMenuItem(Self.FindComponent(‘miExpandAllGroup‘)).Visible   :=   False;   
            TMenuItem(Self.FindComponent(‘miCollapseAllGroup‘)).Visible   :=   False;   
          end;   
      end;   
  end;   
    
  procedure   TFormItemList.miFilterBuilderClick(Sender:   TObject);   
  begin   
      //过滤管理器   
      //弹出Filter   Builder   Dialog对话框   
      tvResult.Filtering.RunCustomizeDialog;   
  end;   
    
  procedure   TFormItemList.miCustomFilterClick(Sender:   TObject);   
  var   
      AHitTest:   TcxCustomGridHitTest;   
  begin   
      //自定义过滤   
      //弹出Custom   Filter   Dialog对话框   
      AHitTest   :=   cxGridPopupMenu.HitTest;   
      if   GetHitTypeByHitCode(AHitTest.HitTestCode)   =   gvhtColumnHeader   then //获得右击的列   
          tvResult.Filtering.RunCustomizeDialog(TcxGridColumnHeaderHitTest(AHitTest).Column);   
  end;   
    
  procedure   TFormItemList.miFilterPanelClick(Sender:   TObject);   
  var   
      mi:   TMenuItem;   
  begin   
      //隐藏/显示过滤面板   
      mi   :=   TMenuItem(Sender);   
      mi.Checked   :=   True;   
      if   mi.Name   =   ‘miFilterPanelAlways‘   then   
          tvResult.Filtering.Visible   :=   fvAlways   
      else   if   mi.Name   =   ‘miFilterPanelNerver‘   then   
          tvResult.Filtering.Visible   :=   fvNever   
      else   
          tvResult.Filtering.Visible   :=   fvNonEmpty;   
  end;   
    
  procedure   TFormItemList.miExpandAllGroupClick(Sender:   TObject);   
  begin   
      //展开所有组   
      tvResult.DataController.Groups.FullExpand;   
  end;   
    
  procedure   TFormItemList.miCollapseAllGroupClick(Sender:   TObject);   
  begin   
      //收缩所有组   
      tvResult.DataController.Groups.FullCollapse;   
  end;   
  


此楼回复Re:  
--------------------------------------------------------------------------------

在用,留名


此楼回复Re:  
--------------------------------------------------------------------------------

技巧三   按条件计算合计值   
    
  在Footer的第一列显示[合计:]   
  加一个Summary项,Column设为Grid的第一列,Kind设为skNone   
  在该Summary项的OnGetText事件中,输入:   
  procedure   TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText(   
      Sender:   TcxDataSummaryItem;   const   AValue:   Variant;   AIsFooter:   Boolean;   
      var   AText:   String);   
  begin   
      AText   :=   ‘合计:‘;   
  end;   
    
  按条件汇总:   
  在TableView的DataController->Summary->FooterSummary->OnSummary事件中,输入:   
  procedure   TFormExpense.tvExpenseDataControllerSummaryFooterSummaryItemsSummary(   
      ASender:   TcxDataSummaryItems;   Arguments:   TcxSummaryEventArguments;   
      var   OutArguments:   TcxSummaryEventOutArguments);   
  begin   
      //得到字段名   TcxDBDataSummaryItem(Arguments.SummaryItem).FieldName;   
      if   (ASender.DataController.Values[Arguments.RecordIndex,   tvExpenseLevel.Index]   >   1)       //只统计Level列=1的值   
          and   (TcxDBDataSummaryItem(Arguments.SummaryItem).Kind   =   skSum)   then   
          OutArguments.Value   :=   0; //Level   >   1的统计值设为0   
  end;   
  


此楼回复Re:  
--------------------------------------------------------------------------------

借贵地一用,问个CXGrid问题,在cxgrid中如何使一些行不能编辑,如:字段isenable   =   false的行


此楼回复Re:  
--------------------------------------------------------------------------------

楼上的问题   
  请参考下面的技巧   
    
  技巧四:根据某列的值设定其它列的可编辑性   
    
  procedure   TFormUser.tvUserEditing(Sender:   TcxCustomGridTableView;   
      AItem:   TcxCustomGridTableItem;   var   AAllow:   Boolean);   
  begin   
      //如果第三列值为True,则第4列不能修改   
      if   (tvUser.Controller.FocusedRecord.Values[2]   =   True)   and   (AItem.Index   =   4)   then   
          AAllow   :=   False   
      else   
          AAllow   :=   True;   
  end;   
  


此楼回复Re:  
--------------------------------------------------------------------------------

技巧五:保存/恢复Grid布局   
    
  //恢复布局   
  IniFileName   :=   ExtractFilePath(Application.ExeName)   +   ‘Layout\‘   +   Self.Name   +   ‘.ini‘;   
  if   FileExists(IniFileName)   then   
      Self.tvResult.RestoreFromIniFile(IniFileName) //从布局文件中恢复   
  else   
  begin   
      Self.tvResult.BeginUpdate;   
      for   i   :=   0   to   Self.tvResult.ItemCount   -   1   do   
          Self.tvResult.Items[i].ApplyBestFit; //调整为最佳宽度   
      Self.tvResult.EndUpdate;   
  end;   
    
  //保存布局   
  IniFileName   :=   ExtractFilePath(Application.ExeName)   +   ‘Layout\‘   +   Self.Name   +   ‘.ini‘;   
  if   not   DirectoryExists(ExtractFileDir(IniFileName))   then   
      CreateDir(ExtractFileDir(IniFileName));   
  Self.tvResult.StoreToIniFile(IniFileName); //保存为布局文件   
  


此楼回复Re:  
--------------------------------------------------------------------------------

借用地问一下:在   cxgrid中,如果我同时选中主表与子表中的记录,怎么样能同时进行对其所选记录进行处理呢。   
  我现在只能判断   焦点是在主表还是从表中,然后只能对主表或子表中的数据进行处理。   
  


此楼回复Re:  
--------------------------------------------------------------------------------

看来用cxGrid人不多啊   
    
  再多贴一些技巧,需要的朋友顶一下   
    
  ==========================================================================   
    
  在主从TableView中根据主TableView得到对应的从TableView   
  var   
      ADetailDC:   TcxGridDataController;   
      AView:   TcxCustomGridTableView;   
  begin   
      with   cxGrid1DBTableView1.DataController   do   
          ADetailDC   :=   TcxGridDataController(GetDetailDataController(FocusedRecordIndex,   0));   
      AView   :=   ADetailDC.GridView;   
  end;   
    
  ==============================================================================   
    
  定位在第一行并显示内置编辑器   
    
  cxDBVerticalGrid1.FocusedRow   :=   cxDBVerticalGrid1.Rows[0];   
  cxDBVerticalGrid1.ShowEdit;   
    
  ==============================================================================   
    
  隐藏   "<No   data   to   display>"   字符串   
    
  该文本存储在scxGridNoDataInfoText资源字符串,可以将该资源字符串的内容设为空   
  来隐藏该文本。   
    
  uses   cxClasses,   cxGridStrs;     
      ...   
      cxSetResourceString(@scxGridNoDataInfoText,   ‘‘);   
    
      //如果"<No   data   to   display>"   字符串已经显示,需要调用:   
      <View>.LayoutChanged;   
    
  ============================================================   
    
  删除应用过滤后的行   
    
  var   
      I:   Integer;   
  begin   
      with   <GridView>   do   
          for   I   :=   0   to   ViewData.RecordCount   -   1   do   
          begin   
              ViewData.Records[0].Focused   :=   True;   
              DataController.DataSet.Delete;   
          end;   
    
  =============================================================   
    
  根据单元的值设置样式   
    
  procedure   <aForm>.<aColumn>StylesGetContentStyle(   
      Sender:   TcxCustomGridTableView;   ARecord:   TcxCustomGridRecord;   
      AItem:   TcxCustomGridTableItem;   out   AStyle:   TcxStyle);   
  begin   
      if   ARecord.Values[AItem.Index]   =   aSomeValue   then   
          AStyle   :=   <aSomeStyle>;   
  end;   
    
  procedure   <aForm>.<aView>StylesGetContentStyle(   
      Sender:   TcxCustomGridTableView;   ARecord:   TcxCustomGridRecord;   
      AItem:   TcxCustomGridTableItem;   out   AStyle:   TcxStyle);   
  var   
      AColumn:   TcxCustomGridTableItem;   
  begin   
      AColumn   :=   (Sender   as   TcxGridDBTableView).GetColumnByFieldName(‘Email‘);   
      if   VarToStr(ARecord.Values[AColumn.Index])   =   ‘‘   then   
          AStyle   :=   cxStyleNullEmail;   
  end;   
    
  ==============================================================================   
    
  TcxCustomGridTableView.FindItemByName,   TcxGridDBTableView.GetColumnByFieldName   or   
  TcxGridDBDataController.GetItemByFieldName   
    
      with   cxGrid1DBBandedTableView1.DataController   do   
          AValue   :=   Values[FocusedRecordIndex,   GetItemByFieldName(‘SomeFieldName‘).Index];   
    
  ===================================================================   
    
  动态生成BandedView   
    
  var   
      AView:   TcxCustomGridView;   
  begin   
      AView   :=   <cxGrid>.CreateView(TcxGridDBBandedTableView);   
      TcxGridDBBandedTableView(AView).DataController.DataSource   :=   <DataSource>;   
      TcxGridDBBandedTableView(AView).Bands.Add;   
      with   TcxGridDBBandedTableView(AView).Bands.Add   do   
      begin   
          Visible   :=   False;   
          FixedKind   :=   fkLeft;   
      end;   
      TcxGridDBBandedTableView(AView).DataController.CreateAllItems;   
      <cxGridLevel>.GridView   :=   AView;   
  


此楼回复Re:  
--------------------------------------------------------------------------------

======================================================================   
    
  当底层数据集为空时显示一条空记录   
    
  procedure   <Form>.<cxGrid>Enter(Sender:   TObject);   
  var   
      View:   TcxGridDBTableView;   
  begin   
      View   :=   TcxGridDBTableView((Sender   as   TcxGrid).FocusedView);   
      if   View.DataController.DataSet.IsEmpty   then   
      begin   
          View.DataController.DataSet.Append;   
          View.Controller.EditingController.ShowEdit;   
      end;   
  end;   
    
  =======================================================================   
    
  在当前View插入记录   
    
  使用FocusedView属性得到当前焦点View,用View.DataController得到对应的Data   Controller,   
  之后使用Data   Controller的方法来操作数据:   
  -   Append   
  -   Insert   
  -   Post   
  -   Cancel   
  -   DeleteFocused   
  -   DeleteSelection   
    
  示例:   
  var   
      ARecIndex:   Integer;   
  …   
      View.DataController.Append;   
      ARecIndex   :=   View.DataController.FocusedRecordIndex;   
      View.DataController.Values[ARecIndex,   SomeItemIndex]   :=   SomeValue;   
      View.DataController.Post;   
    
  另外一种方法是使用View.DataController.DataSource.DataSet得到底层数据集后,再用数据集的   
  方法来操作数据。   
    
  ========================================================================   
    
  激活内置编辑控件   
    
    1)   <aView>.Controller.EditingController.ShowEdit(<aColumn>);   
    2)   <aView>.Controller.EditingController.StartEditShowingTimer(<aColumn>);   
    3)   <aView>.Controller.EditingItem   :=   <aColumn>;   
    4)   <aColumn>.Editing   :=   True;   
    
  隐藏内置编辑控件   
      <aView>.Controller.EditingController.HideEdit(True);   
    
  ===========================================================================   
    
  移除一个分组列   
    
      <aColumn>.GroupIndex   :=   -1;   
      <aColumn>.Visible   :=   True;   
    
  ===========================================================================   
    
  保存修改到数据库   
    
  procedure   <aForm>.FormClose(Sender:   TObject;   var   Action:   TCloseAction);   
  begin   
      if   (<aGrid>.FocusedView   <>   nil)   and   (<aGrid>.FocusedView.DataController.EditState   <>   [])   then   
          <aGrid>.FocusedView.DataController.Post;   
  end;   
    
  ============================================================================   
    
  设置内置右键菜单   
    
  内置右键菜单包括二个菜单:cxGridStdHeaderMenu,   TcxGridStdFooterMenu   
    
  uses   cxGridStdPopupMenu;   
    
  procedure   TForm1.cxGridPopupMenu1Popup(ASenderMenu:   TComponent;   
      AHitTest:   TcxCustomGridHitTest;   X,   Y:   Integer;   var   AllowPopup:   Boolean);   
  begin   
      if   ASenderMenu   is   TcxGridStdHeaderMenu   then   
          TcxGridStdHeaderMenu(ASenderMenu).OnPopup   :=   StdHeaderMenuPopup;   
  end;   
    
  procedure   TForm1.StdHeaderMenuPopup(Sender:   TObject);   
  var   
      I:   Integer;   
  begin   
      with   TcxGridStdHeaderMenu(Sender).Items   do   
          for   I   :=   0   to   Count   -   1   do   
              if   Items[I].Caption   =   ‘Group   By   Box‘   then   
              begin   
                  Items[I].Enabled   :=   False;   
                  System.Break;   
              end   
  end;   
    
  ===========================================================================   
    
  得到选中记录的值   
    
  1)   View.DataController.DataModeController.GridMode   =   False时   
    
      RecIdx   :=   View.Controller.SelectedRecords[i].RecordIndex;   
      ColIdx   :=   View.DataController.GetItemByFieldName(AFieldName).Index;   
      OutputVal   :=   View.DataController.Values[RecIdx,   ColIdx];   
    
      //RecID   :=   View.DataController.GetRecordId(RecIdx);   
      //OutputVal   :=   ADataSet.Lookup(View.DataController.KeyFieldNames,   RecID,   AFieldName);   
    
  2)   View.DataController.DataModeController.GridMode   =   True时   
      Bkm   :=   View.DataController.GetSelectedBookmark(ASelectedRecordIndex);   
      if   ADataSet.BookmarkValid(TBookmark(Bkm))   then   
      begin   
          ADataSet.Bookmark   :=   TBookmark(Bkm);   
          OutputVal   :=   ADataSet.FieldByName(AFieldName).Value;   
      end;   
    
      View.BeginUpdate;   
      View.DataController.BeginLocate;   
      try   
          //   make   changes   here…   
      finally   
          View.DataController.EndLocate;   
          View.EndUpdate;   
      end;   
    
  =============================================================   
    
  在GridMode禁用内置的右键Footer菜单   
    
  uses   cxGridStdPopupMenu;   
    
  procedure   cxGridPopupMenuOnPopup(...)   
  begin   
      if   (ASenderMenu   is   TcxGridStdFooterMenu)   and   
              <GridView>.DataController.DataModeController.GridMode   then   
          AllowPopup   :=   False;   
  end;   
    
  ==============================================================   
    
  主从表任何时候只能展开一个组   
    
  procedure   TForm1.ADetailDataControllerCollapsing(   
      ADataController:   TcxCustomDataController;   ARecordIndex:   Integer;   
      var   AAllow:   Boolean);   
  var   
      I:   Integer;   
      C:   Integer;   
  begin   
      AAllow   :=   False;   
      C   :=   0;   
      for   I   :=   0   to   ADataController.RecordCount   -   1   do   
      begin   
          if   ADataController.GetDetailExpanding(I)   then   
              Inc(C);   
          if   C   >   1   then   
              AAllow   :=   True;   
        end;   
  end;   
    
  procedure   TForm1.ADetailDataControllerExpanding(   
      ADataController:   TcxCustomDataController;   ARecordIndex:   Integer;   
      var   AAllow:   Boolean);   
  begin   
      ADataController.CollapseDetails;   
  end;   
    
  procedure   TForm1.FormCreate(Sender:   TObject);   
  begin   
      cxGrid1DBTableView1.DataController.OnDetailExpanding   :=   ADetailDataControllerExpanding;   
      cxGrid1DBTableView1.DataController.OnDetailCollapsing   :=   ADetailDataControllerCollapsing;   
  end;   
    
  =================================================================   
    
  动态创建层次(Level)和视图(View)   
    
  var       
      Grid:   TcxGrid;       
      Level:   TcxGridLevel;       
      View:   TcxGridDBTableView;       
  begin   
      //   Creates   a   Grid   instance   
      Grid   :=   TcxGrid.Create(SomeOwner);       
      Grid.Parent   :=   SomeParent;       
      //   Creates   a   Level   
      Level   :=   Grid.Levels.Add;       
      Level.Name   :=   ‘SomeLevelName‘;   
      //   Creates   a   View   
      View   :=   Grid.CreateView(TcxGridDBTableView)   as   TcxGridDBTableView;       
      View.Name   :=   ‘SomeViewName‘;   
      //   …   and   binds   it   to   the   Level   
      Level.GridView   :=   View;       
      //   Hooks   up   the   View   to   the   data   
      View.DataController.DataSource   :=   SomeDataSource;       
      //   …   and   creates   all   columns   
      View.DataController.CreateAllItems;       
  end;     
  


此楼回复Re:  
--------------------------------------------------------------------------------

======================================================================   
    
  获得Group   Footer合计行对应的记录   
    
  procedure   TForm1.cxGrid1DBTableView1CustomDrawFooterCell(   
      Sender:   TcxGridTableView;   ACanvas:   TcxCanvas;   
      AViewInfo:   TcxGridColumnHeaderViewInfo;   var   ADone:   Boolean);   
  var   
      ALevel,   ADataGroupIndex:   Integer;   
      AGridRecord,   AGroupRecord:   TcxCustomGridRecord;   
  begin   
      if   AViewInfo   is   TcxGridRowFooterCellViewInfo   and       //   Row   footer   
            (TcxGridDBColumn(AViewInfo.Column).DataBinding.FieldName   =   ‘Area‘)   then     //   Area   column   
          begin   
              AGridRecord   :=   TcxGridRowFooterCellViewInfo(AViewInfo).GridRecord;   
              ALevel   :=   TcxGridRowFooterCellViewInfo(AViewInfo).Container.GroupLevel;   
              ADataGroupIndex   :=   Sender.DataController.Groups.DataGroupIndexByRowIndex[AGridRecord.Index];   
              if   ADataGroupIndex   <>   -1   then   
              begin   
                  AGroupRecord   :=   AGridRecord;   
                  while   AGroupRecord.Level   <>   ALevel   do   
                      AGroupRecord   :=   AGroupRecord.ParentRecord;   
                  AViewInfo.Text   :=   AGroupRecord.DisplayTexts[0];   
              end;   
          end;   
  end;   
    
  ===========================================================================   
    
  访问过滤之后的记录   
    
  var   
      I:   Integer;   
  begin   
      Memo1.Lines.Clear;   
      with   cxGrid1DBTableView1.DataController   do   
          for   I   :=   0   to   FilteredRecordCount   -   1   do   
              Memo1.Lines.Add(DisplayTexts[FilteredRecordIndex[I],   0]);   
  end;   
    
  ============================================================================   
    
  获得单元的Font   
    
  cxGrid1DBTableView1.ViewInfo.RecordsViewInfo.Items[1].GetCellViewInfoByItem(   
      cxGrid1DBTableView1Company).EditViewInfo.Font;   
    
  ============================================================================   
    
  根据Level名称找到Level对象   
    
  function   GetLevelByName(AGrid:   TcxGrid;   ALevelName:   string):   TcxGridLevel;   
    
      function   LoopThroughLevels(ALevel:   TcxGridLevel;   ALevelName:   string):   TcxGridLevel;   
      var   
          I:   Integer;   
      begin   
          Result   :=   nil;   
          for   I   :=   0   to   ALevel.Count   -   1   do   
          begin   
              if   ALevel[I].Name   =   ALevelName   then   
              begin   
                  Result   :=   ALevel[I];   
                  Exit;   
              end;   
              if   ALevel[I].Count   >   0   then   
              begin   
                  Result   :=   LoopThroughLevels(ALevel[I],   ALevelName);   
                  if   Result   <>   nil   then   
                      Exit;   
              end;   
          end;   
      end;   
    
  var   
      I:   Integer;   
  begin   
      Result   :=   nil;   
      for   I   :=   0   to   AGrid.Levels.Count   -   1   do   
      begin   
          if   AGrid.Levels[I].Name   =   ALevelName   then   
          begin   
              Result   :=   AGrid.Levels[I];   
              Exit;   
          end;   
          if   AGrid.Levels[I].Count   >   0   then   
          begin   
              Result   :=   LoopThroughLevels(AGrid.Levels[I],   ALevelName);   
              if   Result   <>   nil   then   
                  Exit;   
          end;   
      end;   
  end;   
    
  ============================================================================   
    
  指定Filter   Builder打开/保存过滤文件的默认路径   
    
  uses   
      ...,   cxFilterControlDialog;   
    
  procedure   TForm.GridView1FilterControlDialogShow(   
      Sender:   TObject);   
  begin   
      TfmFilterControlDialog(Sender).OpenDialog.InitialDir   :=   ‘D:\‘   
  end;     
    
  ============================================================================   
    
  保存/恢复带汇总行的布局   
    
  <TableView>.StoreToIniFile(‘c:\Grid.ini‘,   True,   [gsoUseSummary]);     
  <GridView>.RestoreFromIniFile(<inifilename>,True,False   {or   True,   optional},[gsoUseSummary]);   
    
  ============================================================================   
    
  取消过滤时移到第一行   
    
  uses   
      cxCustomData;   
    
  procedure   TYour_Form.AViewDataControllerFilterChanged(Sender:   TObject);   
  var   
      Filter:   TcxDataFilterCriteria;   
  begin   
      with   Sender   as   TcxDataFilterCriteria   do   
          if   IsEmpty   then   
              DataController.FocusedRowIndex   :=   0;   
  end;   
    
  =============================================================================   
    
  排序后移到第一行   
    
  可以设置DataController.Options.FocusTopRowAfterSorting   :=   True,也可以使用如下的代码:   
    
  uses   
      cxCustomData;   
    
  procedure   TYour_Form.Your_ViewDataControllerSortingChanged(Sender:   TObject);   
  begin   
      TcxCustomDataController(Sender).FocusedRowIndex   :=   0;   
  end;   
    
  ==============================================================================   
    
  判断当前行是否第一行或最后一行   
    
  可以使用DataController的IsBOF,   IsEOF方法,或者:   
  <AView>.Controller.Controller.FocusedRow.IsFirst   
  <AView>.Controller.Controller.FocusedRow.IsLast   
    
  ==============================================================================   
    
  根据指定值查找记录   
    
  DataController提供了好几个方法来得到指定值对应的RecordIndex   
  对于Bound   View可以使用FindRecordIndexByKeyValue方法   
    
  ===============================================================================   
    
  编辑和显示Blob字段   
    
  该字段的Properties设置为BlobEdit,并将BlobPaintStyle   属性设为   bpsText   
    
  ===============================================================================   
    
  得到可见行数   
    
  <View>.ViewInfo.VisibleRecordCount   
    
  ===============================================================================   
    
  保存后的行设置为当前行   
    
  const   
      CM_SETFOCUSEDRECORD   =   WM_USER   +   1002;   
    
  type   
      TForm1   =   class(TForm)   
          cxGrid1DBTableView1:   TcxGridDBTableView;   
          cxGrid1Level1:   TcxGridLevel;   
          cxGrid1:   TcxGrid;   
          dxMemData1:   TdxMemData;   
          dxMemData1Field1:   TStringField;   
          dxMemData1Field2:   TIntegerField;   
          DataSource1:   TDataSource;   
          cxGrid1DBTableView1RecId:   TcxGridDBColumn;   
          cxGrid1DBTableView1Field1:   TcxGridDBColumn;   
          cxGrid1DBTableView1Field2:   TcxGridDBColumn;   
          Timer1:   TTimer;   
          CheckBox1:   TCheckBox;   
          procedure   Timer1Timer(Sender:   TObject);   
          procedure   dxMemData1AfterPost(DataSet:   TDataSet);   
          procedure   CheckBox1Click(Sender:   TObject);   
      private   
          procedure   CMSetFocusedRecord(var   Msg:   TMessage);   message   CM_SETFOCUSEDRECORD;   
      public   
          {   Public   declarations   }   
      end;   
    
  var   
      Form1:   TForm1;   
      FocusedIdx:   Integer;   
    
    
  implementation   
    
  {$R   *.dfm}   
    
  procedure   TForm1.Timer1Timer(Sender:   TObject);   
  begin   
      dxMemData1.AppendRecord([‘‘,   IntToStr(Random(1000)),   Random(1000)]);   
  end;   
    
  procedure   TForm1.dxMemData1AfterPost(DataSet:   TDataSet);   
  begin   
      PostMessage(Handle,   CM_SETFOCUSEDRECORD,   Integer(cxGrid1DBTableView1),   MakeLParam(cxGrid1DBTableView1.Controller.FocusedRowIndex,   cxGrid1DBTableView1.Controller.TopRowIndex));   
  end;   
    
  procedure   TForm1.CMSetFocusedRecord(var   Msg:   TMessage);   
  begin   
      TcxGridDBTableView(msg.WParam).Controller.FocusedRowIndex   :=   Msg.LParamLo;   
      TcxGridDBTableView(msg.WParam).Controller.TopRowIndex   :=   Msg.LParamHi;   
  end;   
    
  procedure   TForm1.CheckBox1Click(Sender:   TObject);   
  begin   
      Timer1.Enabled   :=   TCheckBox(Sender).Checked;   
  end;   
    
  end.   
    
  =================================================================================   
    
  删除记录并获得焦点   
    
  procedure   TForm1.BtnDeleteClick(Sender:   TObject);   
  var   
      FocusedRow,   TopRow:   Integer;   
      View:   TcxGridTableView;   
      DataController:   TcxGridDataController;   
  begin   
      View   :=   cxGrid1.FocusedView   as   TcxGridTableView;   
      DataController   :=   View.DataController;   
    
      //   Remember   the   top   row   (the   vertical   scrollbar   position)   
      TopRow   :=   View.Controller.TopRowIndex;   
      //   Remember   the   focused   row(!)   index   
      FocusedRow   :=   DataController.FocusedRowIndex;   
    
      DataController.DeleteFocused;   
    
      //   After   deletion   the   same   row   must   be   focused,   
      //   although   it   will   correspond   to   a   different   data   record   
      DataController.FocusedRowIndex   :=   FocusedRow;   
      //   Restore   the   top   row   
      View.Controller.TopRowIndex   :=   TopRow;   
  end;   

//=======================================================================================
数据库中的财务表为:   
      ID     收支类型     金额     其它属性   
    
  其中收支类型只有两种值:0   表示收入,1   表示支出   ;金额都是正数。   
    
  设置cxGrid的Footer   可以使得在显示时,列表的下方出现汇总行:“金额”的和   
  同样设置Default   For   Groups可以使得在用户拖动表头属性实现分组时,显示组内的汇总行:“金额”的和。   
    
  上面说的,用过cxGrid应该都会,下面就有这么一个问题   
    
  如果我想使汇总行的值变为如下的值应该怎样实现:   
                收支类型为0的金额的和   -   收支类型为1的金额的和   
  实现Footer的功能好办,因为它的值不会变,自己用循环写一个就完了,但是Default   For   Groups的功能就不好说了,因为它的值是根据用户拖动的属性计算的,而且还有可能是多层分组,想不出来了,所有到这来问   
  是不是要设置什么属性?或者cxGrid根本就没这个功能,那该用什么方法解决?希望哪位帮我解决,谢谢了先!   

给你一个例子,可能对你有帮助,   
    with   tvOrders.DataController.Summary   do   
    
      begin   
          BeginUpdate;   
          try   
              SummaryGroups.Clear;   
              //The   first   summary   group   
              with   SummaryGroups.Add   do   
              begin   
                  //Add   proposed   grouping   column(s)   
                  TcxGridTableSummaryGroupItemLink(Links.Add).Column   :=   tvOrdersCustomerID;   
                  //Add   summary   items   
                  with   SummaryItems.Add   as   TcxGridDBTableSummaryItem   do   
                  begin   
                      Column   :=   tvOrdersPaymentAmount;   
                      Kind   :=   skSum;   
                      Format   :=   ‘Amount   Paid:   $,0‘;   
                  end;   
    
                  with   SummaryItems.Add   as   TcxGridDBTableSummaryItem   do   
                  begin   
                      Column   :=   tvOrdersPaymentAmount;   
                      Kind   :=   skCount;   
                      Format   :=   ‘Records:   0‘;   
                  end;   
    
              end;   
    
              //The   second   summary   group   
              with   SummaryGroups.Add   do   
              begin   
                  //Add   proposed   grouping   column(s)   
                  TcxGridTableSummaryGroupItemLink(Links.Add).Column   :=   tvOrdersProductID;   
                  //Add   summary   items   
                  with   SummaryItems.Add   as   TcxGridDBTableSummaryItem   do   
                  begin   
                      Column   :=   tvOrdersQuantity;   
                      Kind   :=   skSum;   
                      Position   :=   spFooter;   
                      Format   :=   ‘TOTAL   =   0‘;   
                  end;   
    
                  with   SummaryItems.Add   as   TcxGridDBTableSummaryItem   do   
                  begin   
                      Column   :=   tvOrdersPurchaseDate;   
                      Kind   :=   skMin;   
                      Position   :=   spFooter;   
                  end;   
              end;   
    
          finally   
              EndUpdate;   
          end;   
      end;    

 
 2007-7-19 12:56:41    go on 订单号 商品名 单价 数量 金额
001 aa 11.00 2 22.00
001 bb 2.00 2 4.00
001 cc 3.00 3 9.00

----------------------合计 7 35.00

002 ee 11.00 2 22.00
002 bb 3.00 2 6.00
002 cc 3.00 3 9.00

----------------------合计 7 37.00


总计14 72.00

每个单号分一个小结,能实现吗?

最后在底下实现总的合计
 

以上是关于cxGrid用法-最新的主要内容,如果未能解决你的问题,请参考以下文章

delphi CXGRID用法 (取行列值;定位选中某行等等)

delphi CxGrid用法总结(63问)

CXGRID用法(取行列值;定位选中某行等等)

delphi CxGrid用法总结(63问)

delphi CxGrid用法总结(63问)

跪求delphi 中cxgrid控件的用法,越详细越好