cxGrid控件过滤排序和TClientDataSet同步

https://www.cnblogs.com/false/archive/2013/02/24/2924240.html

procedure TReport10Form.cxGridViewDataControllerFilterChanged(Sender: TObject);
var
  cds: TClientDataSet;
begin
  cds := cxGridView.DataController.DataSource.DataSet as TClientDataSet;
  try
    cds.Filtered := false;
    cds.Filter := cxGridView.DataController.filter.filtertext;
    cds.Filtered := True;
  except
    cds.Filter:='';
  end;
end;

2.排序同步

procedure TaxisDataSet(Column: TColumnEh; var aDataSet: TClientDataSet);
var
  IndexDataSet: ^TClientDataSet;
  IsDesc: boolean;
begin
  IndexDataSet := @aDataSet;
//  if LastColumn <> nil then     //中文长度为2
//    LastColumn.Title.Caption := Copy(LastColumn.Title.Caption, 1, Length(LastColumn.Title.Caption) - 2);

//  LastColumn := Column;
  if (IndexDataSet.IndexDefs.Count > 0) and (IndexDataSet.IndexDefs[0].Fields = Column.FieldName) then
  begin
    if IndexDataSet.IndexDefs[0].Options = [ixDescending] then
      IsDesc := false
    else
      IsDesc := true;
  end
  else
  begin
    IsDesc := false;
  end;

  IndexDataSet.DisableControls();
//  self.cdsVMember.IndexFieldNames := Column.FieldName;

  IndexDataSet.IndexDefs.Clear();
  with IndexDataSet.IndexDefs.AddIndexDef do
  begin
    Fields := Column.FieldName;
    if IsDesc then
    begin                             //12.8.206 lero
      Name := 'DescIndex' + 'Tmp';  //'tmp'代替 Column.FieldName 避免Name长度过长 引起错误
      Options := [ixDescending];
//      Column.Title.Caption := Column.Title.Caption + '↓';  //
    end
    else
    begin
      Name := 'Index' + 'Tmp';
//      Column.Title.Caption := Column.Title.Caption + '↑'; //
    end;
  end;
  IndexDataSet.IndexName := IndexDataSet.IndexDefs.Items[0].Name;
  IndexDataSet.EnableControls();
end;

3.动态的显示数据源数据

var Tableview:TcxGridDBTableView; //定义 

...... 

TableView := TcxGridDBTableView(cxGrid1.CreateView(TcxGridDBTableView)); 
with TableView do 
begin 
DataController.DataSource := datasource2; // 确定数据源 
self.cxGrid1Level1.GridView:= TableView; //绑定视图 
(DataController as IcxCustomGridDataController).DeleteAllItems; //删除所有列 
(DataController as IcxCustomGridDataController).CreateAllItems(false);//创建数据源中的所有列 
end; 
for i:=0 to tableview.ColumnCount-1 do 
begin 
//判断数据视图中是否包含产品两字的列,以便加长宽度显示 
if AnsiContainsText(tableview.Columns.DataBinding.FieldName,'产品')=true then 
begin 
tableview.Columns.Width:=120 ; 
end else 
begin 
tableview.Columns.Width:=50 ; 
end; 
end;