高手来啊该怎么解决

高手来啊
'获取透视表对象
  Dim pt As PivotTable
  Set pt = Sheet1.PivotTables("数据透视表")


 '设置公式字段
  If InStr(formulaCol, "[" & DataFieldList(i) & "]") > 0 Then
  formulaStr = getFormulaValue(viewName, DataFieldList(i))
  pt.CalculatedFields.Add DataFieldList(i), _
  "=" & formulaStr, True
  With pt.PivotFields(DataFieldList(i))
  .Orientation = xlDataField
  .Caption = DataFieldList(i) & extStr
  End With
  Else

这里的With pt.PivotFields(DataFieldList(i))
  .Orientation = xlDataField
  .Caption = DataFieldList(i) & extStr
  End With
我看不明白，是什么意思啊？

[解决办法]
Orientation 属性指定相应字段在 PivotTable 里的位置，在4个常数里取值：xlRowField, xlColumnField, xlDataField, or xlPageField

.Orientation = xlDataField 
表示把相应字段设置为数据字段，即在数据区显示该字段的内容。
[解决办法]
With pt.PivotFields(DataFieldList(i)) 
.Orientation = xlDataField 
.Caption = DataFieldList(i) & extStr 
End With 

等同于:
pt.PivotFields(DataFieldList(i)).Orientation = xlDataField 
pt.PivotFields(DataFieldList(i)).Caption = DataFieldList(i) & extStr