2013年已弃用数据透视表。我需要的特定功能无法在Excel或交叉表中替换,它仅在Access中可用。这篇文章说没有解决方法。
how to use the pivot table mode in acces 2013 forms
但我找到了这段代码:
Private WithEvents pt As OffOwc.PivotTable
Private Sub Form_Load()
Set pt = Me.myActiveXControl
End Sub
这需要引用offowc.dll,它可以从早期版本的Access复制或从Microsoft下载。
在上面的代码中,第一个语句用于创建对象pt。
在表单加载事件中,我可以按如下方式设置表单数据透视表:
Set me.PivotTable = pt
但是这个语句给出了一个参考错误,就我所能得到的那样:
Set me.PivotTable.ActiveNew = pt.ActiveView
我知道如果我想要这个功能,我可能会停止使用2010运行时版本,直到它不再运行,但我想也许还有一些方法可以合并这个旧的DLL以便我可以继续前进在当前版本中,不会丢失此功能。