Office中国论坛/Access中国论坛

标题: [原创]重新指定数据透视表数据源小实例 [打印本页]

作者: Grant 时间: 2007-6-20 17:34
标题: [原创]重新指定数据透视表数据源小实例
[attach]25008[/attach]

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

End Sub

为透视表时可添加总计字段

为透视图时总计字段不能以vba方式添加,如有方法请告知.

作者: goto2008 时间: 2007-6-20 17:43
[attach]25009[/attach]

作者: Grant 时间: 2007-6-20 18:53
需要引用 Microsoft Office Web 组件 10.0

office版本不同,组件版本也会有所不同.

作者: andymark 时间: 2007-6-20 20:56
谢谢分享!!

作者: wang1950317 时间: 2007-6-20 21:55
Grant老师：为何找回引用后还提示编译错误： Dim pTable As OWC10.PivotTable 用户定义类型未定义？

作者: Grant 时间: 2007-6-20 22:32
版本不同,OWC10 改为 OWC11 或者 OWC9

作者: goto2008 时间: 2007-6-22 18:00
学习。。。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)