var
i : Integer;
cl : TcxGridDBBandedColumn;
begin
Screen.Cursor := crHourGlass;
cxtvMaster.BeginUpdate;
try
cxtvMaster.ClearItems;
cxtvMaster.DataController.Summary.FooterSummaryItems.Clear;
for i := 0 to cxtvMaster.DataController.DataSet.FieldCount - 1 do
begin
cl := cxtvMaster.CreateColumn;
cl.DataBinding.FieldName :=
cxtvMaster.DataController.DataSet.Fields[i].FieldName;
if cxtvMaster.DataController.DataSet.Fields[i] is TNumericField then
begin
TNumericField(cxtvMaster.DataController.DataSet.Fields[i])
.DisplayFormat := '#,##0.00';
cl.Width := 80;
cl.Summary.FooterKind := sksum;
end
else if cxtvMaster.DataController.DataSet.Fields[i] is TStringField then
cl.Width := 100
else
cl.Width := 80;
cl.HeaderAlignmentHorz := taCenter;
end; //if
finally
cxtvMaster.EndUpdate;
Screen.Cursor := crDefault;
end;
end;
CXGrid动态添加列与合计栏
最新推荐文章于 2020-12-15 13:11:06 发布