- Код: Выделить всё
- 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")
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4