Passing Array() from VFP to Pivot table 1

[LouShepherd0921]

Hello all -

I'm developing an Excel Pivot Table app in Visual FoxPro 9 and so far, it's working out fine - with 1 exception.

I was reading that it is possible to roll up date fields into months, quarters, years etc with a VBA line like this:

PT.PivotFields("Balance Date").LabelRange.Group Start:=True,_
End:=True, Periods:=_
Array(False, False, False, True, True, True)

I understand that the ":=" signifies a named parameter, so in VFP9 I could write:

PT.PivotFields("Balance Date").LabelRange.Group.Start = .T.
PT.PivotFields("Balance Date").LabelRange.Group.End = .T.

BUT

How can I pass the Array() stuff? It keeps throwing errors.

Thanks,
Lou

 

[bborissov]

Not tested but:

LOCAL ARRAY testArr[7]
STORE .t. TO testArr[4], testArr[5], testArr[6], testArr[7]
PT.PivotFields("Balance Date").LabelRange.Group(.t.,.t.,,@testArr)

Borislav Borissov

 

[LouShepherd0921]

Thank you. This works!

Lou