IVZDataSourceMapping.Data

Копировать пример

Sub UserProc;
Var
    Metabase: IMetabase;
    EaxAnalyzer: IEaxAnalyzer;
    BubbleTree: IVZBubbleTree;
    ColorVisual: IVZColorVisual;
    DataSourceMapping: IVZDataSourceMapping;
    DataSource: IVZMultiplyDataSource;
    Element: IGxSolidBrush;
Begin
    Metabase := MetabaseClass.Active;
    EaxAnalyzer := Metabase.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим пузырьковое дерево
    BubbleTree := EaxAnalyzer.BubbleTree.BubbleTree;
    // Получим визуализатор цвета
    ColorVisual := BubbleTree.ColorVisual;
    // Получим настройки сопоставления данных
    DataSourceMapping := ColorVisual.ColorMapping;
    // Установим заголовок для источника данных, соответствующий идентификатору
    DataSource := DataSourceMapping.DataSource;
    DataSource.Title := DataSource.ID;
    DataSourceMapping.DataSource := DataSource;
    // Установим индекс, по которому возвращаются данные из каждого измерения
    DataSourceMapping.Index := 1;
    // Установим идентификатор измерения
    DataSourceMapping.AttributeId := "TBL_DICTIONARY";
    // Установим заливку для пузырька «нет данных»
    Element := DataSourceMapping.Data("") As IGxSolidBrush;
    Element.Color := New GxColor.CreateRGB(0, 255, 255);
    // Инициализируем шкалу отображения данных
    DataSourceMapping.Setup;
    Debug.WriteLine("Наименование источника данных: " + 
        DataSourceMapping.DataSource.Title);
    Debug.WriteLine("Наименование выбранной отметки измерения: " + 
        DataSourceMapping.Title);
    Debug.WriteLine("Индекс, по которому возвращаются данные из каждого измерения: " + 
        DataSourceMapping.Index.ToString);
    Debug.WriteLine("Идентификатор измерения, по которому выбираются данные: " + 
        DataSourceMapping.AttributeId);
    // Сохраним изменения в экспресс-отчёте
    (EaxAnalyzer As IMetabaseObject).Save;
End Sub UserProc;