Delphi控件cxGrid 如何动态创建列?

最新推荐文章于 2024-06-07 01:01:32 发布

kygl2003

最新推荐文章于 2024-06-07 01:01:32 发布

阅读量2.1k

点赞数

分类专栏： DELPHI

DELPHI 专栏收录该内容

16 篇文章

订阅专栏

var i: Integer;  
  Column: TcxGridDBColumn;  
  cxView: TcxGridDBTableView;    
begin  
  cxView := Self.Levels[0].GridView as TcxGridDBTableView;  
  if cxView.DataController.DataSource <> nil then  
    if cxView.DataController.DataSource.DataSet <> nil then  
    begin  
      cxView.ClearItems;  
      for i:=0 to  cxView.DataController.DataSource.DataSet.FieldCount-1 do   
        begin  
         Column := cxView.CreateColumn;  
         Column.DataBinding.FieldName := cxView.DataController.DataSource.DataSet.Fields[i].FieldName;  
         Column.PropertiesClass := TcxTextEditProperties;  
      end;  
    end;  
end;

for i := 0 to Query.FieldCount - 1 do     
begin     
   cxGrid.CreateColumn;     
   cxGrid.columns[i].DataBinding.FieldName := Query.Fields[i].DisplayName;     
   cxGrid.Columns[i].Caption := 'XXXX';     
   cxGrid.Columns[i].Width   :=80;     
end;