cxGrid运行期间添加LevelView

  cxGrid := TcxGrid.Create(self);
  InsertControl(cxGrid);
  cxGrid.Align := alLeft;
  cxGrid.Width := 240;
  cxGrid.Name := 'cxGrid';
  cxGrid.Font.Name := 'Times New Roman';
  cxGridLevel := cxGrid.Levels.Add;
  cxGridDBTableView := TcxGridDBTableView(cxGrid.CreateView(TcxGridDBTableView));
  cxGridLevel.GridView := cxGridDBTableView;
  cxGridDBTableView.DataController.DataSource := DataSource;
  cxGridDBTableView.OptionsView.Footer := True;
  cxGridDBTableView.OptionsView.GroupByBox := false;
  cxGridDBTableView.OptionsView.NoDataToDisplayInfoText := '没有记录';
  cxGridDBTableView.Filtering.CustomizeDialog := false;
  cxGridDBTableView.OptionsCustomize.ColumnSorting := false;
  cxGridDBTableView.OptionsData.Appending := false;
  cxGridDBTableView.OptionsData.Deleting := false;
  cxGridDBTableView.OptionsData.Inserting := false;
  cxGridDBTableView.OptionsData.Editing := false;
  cxGridDBTableView.FilterRow.Visible := True;
  cxGridDBTableView.FilterRow.InfoText := '过滤条件 用%代替任意多字符 如:%27%';
  with cxGridDBTableView.CreateColumn do
  begin
    DataBinding.FieldName := 'Qno';
    caption := 'Qno';
    Width := 40;
    Summary.FooterKind := skCount;
    Summary.FooterFormat := '行数';
  end;
  with cxGridDBTableView.CreateColumn do
  begin
    DataBinding.FieldName := 'custname';
    caption := 'custname';
    Width := 60;
    Summary.FooterKind := skCount;
  end;
  with cxGridDBTableView.CreateColumn do
  begin
    DataBinding.FieldName := 'Entertime_Text';
    caption := 'Entertime_Text';
    Width := 50;
  end;
  with cxGridDBTableView.CreateColumn do
  begin
    DataBinding.FieldName := 'Remark2';
    caption := 'Remark2';
    Width := 60;
  end;