Листинг 6

// Выбираем поля для формирования строк, столбцов, страниц
 PT.PivotFields(‘Country’).Orientation := xlRowField;
 // Поле Country находится на первом уровне иерархии
 PT.PivotFields(‘Country’).Position := 1;
 PT.PivotFields(‘City’).Orientation := xlRowField;
 // Поле City находится на втором уровне иерархии
 PT.PivotFields(‘City’).Position := 2;