Добрый день!
Может ли кто нибудь подсказать как получить фильтры из OWC11.

Проблема следующая:
Есть куб и OWC11, показывающая его.
Необходимо по двойному клику на cell получить установленные фильтры для последующего формирования MDX запроса.
Двойной клик я обрабатываю и вытаскиваю выбранный срез по строкам и столбцам (MyPT.Selection.Item(0).Cell.ColumnMember.UniqueName)

Формирую примерно следующий запрос:
SELECTFROM [CubeName] WHERE ([Дата].[All Дата].[2005], [Name].[All Full Name].[user])

Необходимо вытащить фильтры.

Заранее благодарю!

Да, я там копался.
Но так и не понял...
Единственное, что у меня получилось:
Вывести имя измерения:
for i=0 To (MyPT.ActiveView.FilterAxis.FieldSets.Count-1)
MsgBox MyPT.ActiveView.FilterAxis.FieldSets(i).UniqueName
Next

А мне надо выбранные member'ы ([Дата].[All Дата].[2005])

Кстати в toolpack'e очень много багов
(если выбрать множественный фильтр, то он игнорирует вообще этот фильтр)

И еще:
Код нашел в MSDN

For Each pFieldset In MyPT.ActiveView.FilterAxis.FieldSets
For Each pfield In pFieldset.Fields
On Error Resume Next
For Each varValue In pfield.IncludedMembers
MsgBox pField.UniqueName & ".[" & varValue.Value & "] (Included)"
Next
Next
Next

Но он не хочет работать!
Подскажите пожалуйста в чем дело.

И еще вопрос.
Как можно в DrillThrough запросе сделать фильтр (или) например по двум членам одного измерения.

Пример:
DRILLTHROUGH
SELECT {[Подразделение].[All Full Name].[Name].[User]} on 0
FROM [CubeName]
WHERE {[Дата Начала].[All Дата Начала].[2005], [Дата Начала].[All Дата Начала].[2006]}

В MSDN написано, что так можно (в 2005)
У меня 2000.
Подскажите, как можно эту задачу решить на 2000

Вернусь к вопросу.
Как можно получить выбранные фильтры в OWC11.

В MSDN есть код:

Sub PrintAxisFilters(pAxis As Object)
Dim pFieldset As OWC10.PivotFieldSet
Dim pfield As OWC10.PivotField
Dim varValue As Variant
With pAxis
For Each pFieldset In .FieldSets
For Each pfield In pFieldset.Fields
Debug.Print "Field: " & pfield.Name
On Error Resume Next
For Each varValue In pfield.IncludedMembers
Debug.Print varValue.Value & vbTab & "(Included)"
Next
For Each varValue In pfield.ExcludedMembers
Debug.Print varValue.Value & vbTab & "(Excluded)"
Next
Next
Next
End With
End Sub

Этот код показывает (Excluded), но не показывает (included)!
Я его упростил (убрал цикл, показывающий excluded)
примерно так:

For Each pFieldset In MyPT.ActiveView.FilterAxis.FieldSets
For Each pfield In pFieldset.Fields
On Error Resume Next
For Each varValue In pfield.IncludedMembers
MsgBox varValue.UniqueName & "] (Included)"
Next
Next
Next

Но он не показывает, выбранные члены фильтра!
Подскажите в чем дело! Ни как не могу с этим справится :(
Заранее благодарю.

Всем спасибо за помощь!
Я решил проблему.
Вот код (выводит все выбранные фильтры):

Dim ptconst

Sub MyPT_DblClick()
...
Set ptconst = MyPT.Constants
Filter1()
...
End Sub

Sub Filter1()
Dim oChildren
Dim sFS
Dim i
'Выводим по 1-му фильтру!!!! Пока без цикла по всем фильтрам :((
Set oChildren = MyPT.ActiveView.FieldSets(0).Member.ChildMembers
For i = 0 To oChildren.Count - 1
Recurse2 oChildren(i)
Next
End Sub

Sub Recurse2(oPM)
Dim oFUpd 'OWC10.PivotFilterUpdate
Dim nState
Dim i

Set oFUpd = oPM.Field.FieldSet.CreateFilterUpdate

nState = oFUpd.StateOf(oPM)
If (nState = ptconst.plMemberStateChecked) Then
MsgBox oPM.UniqueName
ElseIf (nState = ptconst.plMemberStateGray) Then
For i = 0 To oPM.ChildMembers.Count - 1
Recurse2 oPM.ChildMembers(i)
Next
ElseIf (nState = ptconst.plMemberStateClear) Then
End If

End Sub

Неужели в AS2000 никак нельзя задать в запросе DrillThrough фильтр по нескольким членам одного измерения???
Очень странно...

Все равно всем спасибо..

Может и нельзя. Я просто на 2005 не пробовал.
Может я чего не понимаю.
Но вот ссылка
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnsql90/html/sql2k5_anservdrill.asp

Там написано
DRILLTHROUGH
SELECT
{[Measures].[Store Sales]} on 0,
{[Customer].[Geography].[USA]} on 1
FROM [Sales]
WHERE
{[Time].[Year].[2004], [Time].[Year].[2005]}