在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
方法一: 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; 方法一的补充 procedure CreateDynamicCols; var i, B_index: Integer; begin with BTVgather.Bands.Add do begin Caption := lcb1.Text; Position.ColIndex := 2; end; for i := 4 to dsgather.DataSet.FieldCount - 1 do begin with BTVgather.Bands.Add do begin Position.BandIndex := 2; B_index := Index; Caption := dsgather.DataSet.Fields[i].FieldName; with BTVgather.CreateColumn do begin Position.BandIndex := B_index; Caption := dsgather.DataSet.Fields[i].FieldName; DataBinding.FieldName := dsgather.DataSet.Fields[i].FieldName; PropertiesClassName := 'TcxCurrencyEditProperties'; TcxCurrencyEditProperties(Properties).DisplayFormat := ',0.00;-,0.00'; Width := 80;
方法二、 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; 方法三、 procedure TFrmRuleEdit.CreateCols; var Column: TcxGridDBColumn; begin cdsPowerPrj.First; while not cdsPowerPrj.Eof do begin Column := viewPower.CreateColumn; Column.Caption := cdsPowerPrj.FieldByName('description').Text; Column.DataBinding.FieldName := cdsPowerPrj.FieldByName('powerName').Text; Column.PropertiesClassName := 'TcxCheckBoxProperties'; Column.Width := 50; cdsPowerPrj.Next; end; end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论