界面/窗体/控件
Access更改数据透视表数据源
2014-03-27 15:21:30
文件类型 :
文件版本 :
简要说明 :
需要引用 Microsoft Office Web 组件 10.0
如编译错误，找不到工程或库。尝试更改组件,office版本不同,组件版本也会有所不同,OWC10可 改为 OWC11 或者 OWC14 试试
Private Sub cmd执行查询_Click()
Dim pTable As OWC10.PivotTable
Dim pFieldset As OWC10.PivotFieldSet
Dim pField As OWC10.PivotField
Dim ptConstants, totNewtotal
Dim pTableView As OWC10.PivotView
Dim pAxis As OWC10.PivotAxis
Dim objQD As QueryDef
Dim strSQL As String
If Me.Combo3.Value = 1 Then
strSQL = "select * from 表1"
Else
strSQL = "select * from 表2"
End If
Me.查询1_子窗体.Form.RecordSource = strSQL
Set pTable = Me.查询1_子窗体.Form.PivotTable
Set ptConstants = pTable.Constants
Set totNewtotal = pTable.ActiveView.AddTotal("aa bbb", pTable.ActiveView.FieldSets("bbb").Fields(0), ptConstants.plFunctionSum)
pTable.ActiveView.RowAxis.InsertFieldSet pTable.ActiveView.FieldSets("aaa")
pTable.ActiveView.DataAxis.InsertTotal totNewtotal
pTable.ActiveView.DataAxis.InsertFieldSet pTable.ActiveView.FieldSets("bbb")
pTable.ActiveData.HideDetails