- Код: Выделить всё
With frm.PivotTable.ActiveView
Set fsname = .AddFieldSet("name")
Set fspoint = .AddFieldSet("point")
После этого как заполнить новые PivotFieldSet'ы значениями?!?

With frm.PivotTable.ActiveView
Set fsname = .AddFieldSet("name")
Set fspoint = .AddFieldSet("point")
Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 1