源码

热门下载

最新下载

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

当前位置：首页 > 源码 > 界面/窗体/控件
界面/窗体/控件

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
 
为透视表时 可添加总计字段，为透视图时 总计字段不能以vba方式添加。


发布人:Grant-office中国  
分享到：
点击次数：  更新时间：2014-03-27 15:21:30  【打印此页】  【关闭】
上一条：多条件筛选记录（模糊搜索）  下一条：Access点击按钮复制文本框的内容

相关下载

热门下载

热门产品