Access更改数据透视表数据源
时间：2014-03-27 15:10 来源：office中国 作者：Grant 阅读：次
软件类型：国产软件
授权方式：免费软件
界面语言：简体中文
软件大小：6.35 MB
文件类型：.rar
运行环境：Win2003,WinXP,Win7,win8
软件等级：★★★★★
发布时间：2014-03-27
插件情况：
下载次数：
下载次数：
软件介绍：
需要引用 Microsoft Office Web 组件 10.0
如编译错误，找不到工程或库。尝试更改组件,office版本不同,组件版本也会有所不同,OWC10可 改为 OWC11 或者 OWC14 试试
Private Sub cmd执行查询_Click()
如编译错误，找不到工程或库。尝试更改组件,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
顶一下
(4)
100%
踩一下
(0)
0%
下载地址：
注意事项：
☉推荐使用第三方专业下载工具下载本站软件，使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
☉下载本站资源，如果服务器暂不能下载请过一段时间重试！
☉如果遇到什么问题，请到本站论坛去咨寻，我们将在那里提供更多 、更好的资源！
☉本站提供的一些商业软件是供学习研究之用，如用于商业用途，请购买正版。
上一篇：Access点击按钮复制文本框的内容
下一篇：没有了
下一篇：没有了
相关软件
最新软件
推荐软件