cxgrid控件使用.doc

cxgrid控件使用 让“Drag a column here to group by that column”不显示? ?点击cxGrid1上的cxGrid1DBTableView1? ?设置cxGrid1DBTableView1-optionsview-groupbybox:=false 将[Drag a column header to group by that column]改成中文? ? ?建立TcxGridTableView.OnCustomDrawPartBackground procedure TForm1.cxGrid1DBTableView1CustomDrawPartBackground(? ? ? ? ? ? ? ? Sender: TcxGridTableView; ACanvas: TcxCanvas;? ? ? ? ? ? ? ?AViewInfo: TcxCustomGridCellViewInfo; var ADone: Boolean);? ? ?begin? ? ? ?AViewInfo.Text:=显示内容;? ? ? ?ACanvas.FillRect(AViewInfo.Bounds);? ? ?end; 按条件计算合计值 :cxGrid1DBTableView1-optionsview-Footer 设为TruecxGrid1DBTableView1-DataController-Summary设置FooterSummaryItems 在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; 将cxGrid里的数据导入到EXCEL，HTML，XML和TEXT?uses?cxExportGrid4Link;procedure TForm1.Button1Click(Sender: TObject);begin?ExportGrid4ToEXCEL(盘符:\文件名.xsl,cxGrid1,True,True);?ExportGrid4ToTEXT(盘符:\文件名.txt,cxGrid1,True,True);?ExportGrid4ToXML(盘符:\文件名.xml,cxGrid1,True,True);?ExportGrid4ToHTML(盘符:\文件名.html,cxGrid1,True,True);end; 当底层数据集为空时显示一条空记录 procedure Form.cxGridEnter(Sender: TObject); var View: TcxGridDBTableView; begin View := TcxGridDBTableView((Sender