vb.net - VB.net 中的数据透视表

Question

我已经使用 vb.net 代码创建了数据透视表

    pivotField1 = pivotTable.PivotFields(14)
    pivotField2 = pivotTable.PivotFields(15)
    pivotField3 = pivotTable.PivotFields(16)
    pivotField4 = pivotTable.PivotFields(17)
    pivotField5 = pivotTable.PivotFields(18)

    pivotField1.Orientation = XlPivotFieldOrientation.xlDataField
    pivotField2.Orientation = XlPivotFieldOrientation.xlDataField
    pivotField3.Orientation = XlPivotFieldOrientation.xlDataField
    pivotField4.Orientation = XlPivotFieldOrientation.xlDataField
    pivotField5.Orientation = XlPivotFieldOrientation.xlDataField
    pivotField1.Function = XlConsolidationFunction.xlSum
    pivotField2.Function = XlConsolidationFunction.xlSum
    pivotField3.Function = XlConsolidationFunction.xlSum
    pivotField4.Function = XlConsolidationFunction.xlSum
    pivotField5.Function = XlConsolidationFunction.xlSum

但它在数据透视表中显示为 Rowlable 中的 Sum-Value 但我想要 ColumnLabel 所以请帮忙....

Answer 1

使用这个......可能会有所帮助:)

Dim ptSigmaRow As PivotField
For Each ptSigmaRow In ptTable.RowFields
    Dim d As String = ptSigmaRow.Name
    If ptSigmaRow.Name = "Data" Then
         ptSigmaRow.Orientation = XlPivotFieldOrientation.xlColumnField
    End If
Next