cxgrid 如何动态创建列?

最新推荐文章于 2018-03-02 22:49:53 发布

转载最新推荐文章于 2018-03-02 22:49:53 发布 · 243 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/railgunman/archive/2010/12/10/1901759.html

本文介绍了一种在Delphi中使用cxGridDBTableView组件的方法，通过遍历数据源的字段来动态创建列，并设置列属性，实现数据的网格显示。

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;

转载于:https://www.cnblogs.com/railgunman/archive/2010/12/10/1901759.html