{*******************************************************}{                                                       }{       表格编辑                                        }{                                

<br />1.简单介绍：cxGrid右下方的cxGrid1Level1是表示Grid表的层，cxGrid可以有多层，这相当于集合了PageControl的功能,而cxGrid1Level1右边的cxGrid1DBTableView1相当于DBGrid一样。右击cxGrid1可以添加cxGrid1Level2，右击cxGrid1Level2，可以选择Create View , Add level 或者Delete Level。Add level可以增加子Level，Create View里面可以选择很多不同

<br />View_Client.DataController.Summary.FooterSummaryValues[0],//得到值<br />View_Client.DataController.Summary.FooterSummaryTexts //得到显示文字<br />View_Client.DataController.Summary.FooterSummarys //得到合计对象

type  TMyCxGrid = class(TObject)    class procedure DrawIndicatorCell(      Sender: TcxGridTableView; ACanvas: TcxCanvas;      AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);  end;{ TMyCxGrid }class procedure TMyCxGrid.DrawIndicatorCell

<br />object FormChart: TFormChart<br />  Left = 106<br />  Top = 175<br />  Width = 758<br />  Height = 485<br />  Caption = '图形分析'<br />  Color = clBtnFace<br />  Font.Charset = ANSI_CHARSET<br />  Font.Color = clWindowText<br />  Font.Height = -12<br />

<br />//author: cxg<br />//操作cxgrid<br />unit myCxGrid;<br />interface<br />uses<br />  SysUtils, ComCtrls, Forms, Messages, Windows, ExtCtrls, StdCtrls<br />  , Graphics, Controls, Dialogs, Classes,<br />  cxCustomData, cxGraphics,<br />  cxFilter, cxData

<br />object FormChoose: TFormChoose<br />  Left = 331<br />  Top = 269<br />  BorderStyle = bsDialog<br />  Caption = #36873#25321<br />  ClientHeight = 242<br />  ClientWidth = 439<br />  Color = clBtnFace<br />  Font.Charset = DEFAULT_CHARSET<br />  Fon

procedure Tfrm1.TableViewDataControllerSummaryAfterSummary(  ASender: TcxDataSummary);begin  inherited;iSaleAmt:=TableView.GetColumnByFieldName('SaleAmt').Index;vSaleAmt:=ASender.FooterSummaryValues[iSaleAmt];

unit uSelect;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, FindDM, Grids, DBGr

unit FindDM;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, DB, ExtCtr

在DBGrid 中嵌入一个 DBComboBox1procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);

type  TMYDBControler = class(TcxDBTreeListDataController);procedure TForm15.Button1Click(Sender: TObject);var  AParentKeyValue: Vari

function TForm15.CreateBand(View: TcxGridDBBandedTableView;  BandCaption, ParentBandCaption: String): TcxGridBand;var  band: TcxGridBa

procedure CreateSumFooter(cxTableView: TcxGridDBTableView;  const fieldList: string);var  i: Integer;  f: TcxGridDBTableSummaryItem;  l: TStringList;begin  l := TStringList.Create;  l.DelimitedText := fieldList;  l.Delimiter := ',';  cxGrid1DBTableView1.Op

<br />把cxGridView里OptionsView选项中的两项修改成如下<br />      OptionsView.Indicator = True<br />      OptionsView.IndicatorWidth = 40//宽度<br />在customDrawIndicatorCell事件中填写<br />procedure TForm1.cxGrid1BandedTableView1CustomDrawIndicatorCell(<br />  Sender: TcxGridT

设置：cxGrid1DBTableView1Column.PropertiesClass   =   TcxTextEditProperties;     cxGrid1DBTableView1Column.PropertiesClass   =   TcxDateEditProperties;     cxGrid1DBTableView1Column.PropertiesClass   =

//edit by cxg. 2008-04-19 10:01:52//增加保存"显示标题"procedure TCustomDBGridEh.SaveColumnsLayoutProducer(ARegIni: TObject; Section:  String; DeleteSection: Boolean);var  I: Integer;  S: String;begin  if (ARe

{*******************************************************}{                                                       }{       导出Tdbgrideh数据                               }{                                

tdbgrideh(Sender).InplaceEditor.EditText

procedure TformRule.StringGrid1DrawCell(Sender: TObject; ACol,  ARow: Integer; Rect: TRect; State: TGridDrawState);begin  if (ARow = 0) or (ACol = 0) then    exit;  with sender as tstringgrid do     /

========================================================================== 在主从TableView中根据主TableView得到对应的从TableView var ADetailDC: TcxGridDataController; AView: TcxCustomGridTableView; begin with cx

uses   ehlibado; 改良dbgrideh的文字过滤，原先过虑需要填%字符串%，修改后，直接填入所要搜索的字符串即可，相关代码：   procedure TSTColumnFilterEh.InternalSetExpressionStr(const Value: String);  procedure SetLookupKeyValues(var v: V

//恢复布局 IniFileName := ExtractFilePath(Application.ExeName) + Layout/ + Self.Name + .ini; if FileExists(IniFileName) then Self.tvResult.RestoreFromIniFile(IniFileName) //从布局文件中恢复 else begin Self.tv

var AView: TcxCustomGridView; begin AView := .CreateView(TcxGridDBBandedTableView); TcxGridDBBandedTableView(AView).DataController.DataSource := ; TcxGridDBBandedTableView(AView).Bands.Add; with TcxGr

使用FocusedView属性得到当前焦点View，用View.DataController得到对应的Data Controller， 之后使用Data Controller的方法来操作数据： - Append - Insert - Post - Cancel - DeleteFocused - DeleteSelection 示例： var ARecIndex: Integer; … View.

uses cxexportgrid4link;var  SaveDialog: TSaveDialog;begin  SaveDialog:=TSaveDialog.Create(nil);  with SaveDialog do  begin    Filter := *.xls|*.xls;    if Execute then     begin       Expo

在Footer的第一列显示[合计:] 加一个Summary项,Column设为Grid的第一列,Kind设为skNone 在该Summary项的OnGetText事件中,输入: procedure TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText( Sender: TcxDat

在内置右键菜单的后面增加菜单项 首先应在Form上加一个cxGridPopupMenu控件 以启用右键菜单 UseBuildInPopupMenus设为True procedure TFormItemList.FormCreate(Sender: TObject); var AMenu: TComponent; FMenuItem, FSubMenuItem: TMenuItem; begin A