[ 本帖最后由 goto2008 于 2008-4-9 17:41 编辑 ]作者: goto2008 时间: 2008-4-9 16:10
每次去把它人工缩起来,我感觉我人快疯了......................作者: Grant 时间: 2008-4-9 17:46
经过我测试是成功的,至于放置在什么事件就要看你了,你4年的问题就要解决了
记得引用office web office版本不同编号有所不同
Dim pTable As OWC10.PivotTable
Set pTable = Me.子窗体.Form.PivotTable
pTable.ActiveData.HideDetails作者: goto2008 时间: 2008-4-9 18:03
太感谢了。。。。。。。。。。。。。。
没想到困扰我这么久的问题。。。被大哥几句代码搞定
我今天真的太高兴了。谢谢GG的指点。。。。
有机会一定要好好地请你吃饭作者: ynjxw 时间: 2008-4-10 08:08
问题解决了,库也删除了,不厚道呀!!!作者: goto2008 时间: 2008-4-10 09:40
Private Sub Form_Current()
'以下三句保证数据透视表不重复,,
Dim pTable As OWC10.PivotTable
Set pTable = Me.帮面领取数据透视子窗.Form.PivotTable
pTable.ActiveData.HideDetails
End Sub