Posted 14 October 2020, 6:08 am EST
- Updated 3 October 2022, 10:49 pm EST
Private Sub ShowTotals()
Dim cs As CellStyle
'小計行1(Report Dateまで)の背景色を設定
cs = FlxSearch.Styles(CellStyleEnum.Subtotal0)
cs.ForeColor = Color.White
cs.Font = New System.Drawing.Font(FlxSearch.Font, FontStyle.Bold)
cs.BackColor = Color.Blue
'小計行2(Warehouseまで)の背景色を設定
cs = FlxSearch.Styles(CellStyleEnum.Subtotal1)
cs.ForeColor = Color.White
cs.Font = New System.Drawing.Font(FlxSearch.Font, FontStyle.Bold)
cs.BackColor = Color.RoyalBlue
With FlxSearch
'ノード表示する列を設定
.Tree.Style = TreeStyleFlags.Simple
.Tree.Column = FlxSearch.Cols("NODE_TREE").Index
.Rows.Frozen = 1
'ノード表示をクリア
.Subtotal(AggregateEnum.Clear)
'小計行1(Report Date)のSubtotalを設定
.Subtotal(AggregateEnum.Sum, 0, .Cols("SYRI_DT").Index, .Cols("RCV_MTH_QTY").Index)
.Subtotal(AggregateEnum.None, 0, .Cols("SYRI_DT").Index, .Cols("MONTH_AVG").Index)
.Subtotal(AggregateEnum.Sum, 0, .Cols("SYRI_DT").Index, .Cols("RCV_FIS_QTY").Index)
.Subtotal(AggregateEnum.Average, 0, .Cols("SYRI_DT").Index, .Cols("FIS_DAY_TOTAL").Index)
'小計行1(Warehouseまで)のSubtotalを設定
.Subtotal(AggregateEnum.Sum, 1, .Cols("WH_CD").Index, .Cols("RCV_MTH_QTY").Index)
.Subtotal(AggregateEnum.Average, 1, .Cols("WH_CD").Index, .Cols("MONTH_AVG").Index)
.Subtotal(AggregateEnum.Sum, 1, .Cols("WH_CD").Index, .Cols("RCV_FIS_QTY").Index)
.Subtotal(AggregateEnum.Average, 1, .Cols("WH_CD").Index, .Cols("FIS_DAY_TOTAL").Index)
'小計行1(Supplierまで)のSubtotalを設定
.Subtotal(AggregateEnum.Sum, 2, .Cols("SUPPLY_CD1").Index, .Cols("RCV_MTH_QTY").Index)
.Subtotal(AggregateEnum.Average, 2, .Cols("SUPPLY_CD1").Index, .Cols("MONTH_AVG").Index)
.Subtotal(AggregateEnum.Sum, 2, .Cols("SUPPLY_CD1").Index, .Cols("RCV_FIS_QTY").Index)
.Subtotal(AggregateEnum.Average, 2, .Cols("SUPPLY_CD1").Index, .Cols("FIS_DAY_TOTAL").Index)
'小計行1(Carrierまで)のSubtotalを設定
.Subtotal(AggregateEnum.Sum, 3, .Cols("CARRIER_CD").Index, .Cols("RCV_MTH_QTY").Index)
.Subtotal(AggregateEnum.Average, 3, .Cols("CARRIER_CD").Index, .Cols("MONTH_AVG").Index)
.Subtotal(AggregateEnum.Sum, 3, .Cols("CARRIER_CD").Index, .Cols("RCV_FIS_QTY").Index)
.Subtotal(AggregateEnum.Average, 3, .Cols("CARRIER_CD").Index, .Cols("FIS_DAY_TOTAL").Index)
.Tree.Show(-1)
End With
End Sub