Access更改數(shù)據(jù)透視表數(shù)據(jù)源
時間：2014-03-27 15:10 來源：office中國 作者：Grant 閱讀：次
軟件類型：國產(chǎn)軟件
授權(quán)方式：免費軟件
界面語言：簡體中文
軟件大�。�6.35 MB
文件類型：.rar
運行環(huán)境：Win2003,WinXP,Win7,win8
軟件等級：★★★★★
發(fā)布時間：2014-03-27
插件情況：
下載次數(shù)：
下載次數(shù)：
軟件介紹：
需要引用 Microsoft Office Web 組件 10.0
如編譯錯誤，找不到工程或庫。嘗試更改組件,office版本不同,組件版本也會有所不同,OWC10可 改為 OWC11 或者 OWC14 試試
Private Sub cmd執(zhí)行查詢_Click()
如編譯錯誤，找不到工程或庫。嘗試更改組件,office版本不同,組件版本也會有所不同,OWC10可 改為 OWC11 或者 OWC14 試試
Private Sub cmd執(zhí)行查詢_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%
下載地址：
注意事項：
☉推薦使用第三方專業(yè)下載工具下載本站軟件，使用 WinRAR v3.10 以上版本解壓本站軟件。
☉如果這個軟件總是不能下載的請點擊報告錯誤,謝謝合作!!
☉下載本站資源，如果服務(wù)器暫不能下載請過一段時間重試！
☉如果遇到什么問題，請到本站論壇去咨尋，我們將在那里提供更多 、更好的資源！
☉本站提供的一些商業(yè)軟件是供學(xué)習(xí)研究之用，如用于商業(yè)用途，請購買正版。
上一篇：Access點擊按鈕復(fù)制文本框的內(nèi)容
下一篇：沒有了
下一篇：沒有了
相關(guān)軟件
最新軟件
推薦軟件