计量台账，隐藏显示计量汇总列

Units/ColVisibleManager.pas

@@ -238,6 +238,8 @@ begin
     FGridTreeDBA.Grid := nil;
     vGrid.BeginUpdate;
     vGrid.CellClass.Cols[FGridTreeDBA.TreeCellCol] := vGrid.CellClass.DefaultCellClass;
+    vGrid.ColCount := vGrid.FixedColCount;                                             
+    vGrid.RowCount := vGrid.FixedRowCount + FGridTreeDBA.ExtendRowCount;
     FGridTreeDBA.TreeCellCol := FGridFixedColCount + iCount - 1;
     FGridTreeDBA.Grid := vGrid;
     vGrid.EndUpdate;