AlexPAVХорошо добавляю уровень All такой строчкой
Set dsoLevel = dsoDim.Levels.AddNew("(All)")
Во первых непонятно, что указывать в MemberKeyColumn и MemberNameColumn для данного уровня.
Во вторых создается отдельный уровень, который так и называется (All)
А мне нужно не это - надо установить свойство All Level в измерении (значение все равно остается "No") в "Yes" и задать All Caption
Текст такой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Dim dsoServer
Dim dsoDB
Dim dsoDim
Dim dsoLevel
Set dsoServer = CreateObject("dso.Server")
dsoServer.Connect "LocalHost"
Set dsoDB = dsoServer.MDStores("FoodMart 2000")
Set dsoDim = dsoDB.Dimensions.AddNew("Dimension", sbclsRegular)
Set dsoDim.DataSource = dsoDB.DataSources("FoodMart")
Set dsoLevel = dsoDim.Levels.AddNew("(All)")
Set dsoLevel = dsoDim.Levels.AddNew("Level")
With dsoLevel
.MemberKeyColumn = """Account"".""account_id"""
.MemberNameColumn = """Account"".""account_description"""
End With
dsoDim.Update
У DSO.Level есть Property IsAllLevel. Его надо в true поставить.
