Схема = ЭлементыФормы.ГеоСхема; 

Схема.Обновление = Ложь; // Запретить обновление схемы. 



// Отобразить слои Регионы и Города. 

Схема.Слои.Регионы.Видимость = Истина; 

СлойГорода = Схема.Слои.Города; 

СлойГорода.Видимость = Истина; 



// Добавить новую серию для отображения данных источника. 

СерияИнформация = Схема.Слои.Города.Серии.Добавить("Информация"); 

СерияИнформация.Значение = "Информация"; 



// Сформировать таблицу значений источника данных. 

ИсточникДанныхГеоСхемы.Колонки.Добавить("ЗначениеГорода"); 

ИсточникДанныхГеоСхемы.Колонки.Добавить("СерияИнформация", Новый ОписаниеТипов("Строка")); 



// Добавить "справочную" колонку в истоник данных 

// (нужна только для "наглядности" работы с источником). 

ИсточникДанныхГеоСхемы.Колонки.Добавить("НазваниеГорода"); 



// Заполнить в первой строке источника данных значение серии, 

// для которой будут выводиться данные. 

ИсточникДанныхГеоСхемы.Добавить().СерияИнформация = "Информация"; 



// Задать тип источника данных 

Схема.Слои.Города.ТипОрганизацииИсточникаДанных = ТипОрганизацииИсточникаДанныхГеографическойСхемы.НаПересечении; 



// Задать тип отображения значений серии источника данных. 

СлойГорода.Серии.Информация.ТипОтображения = ТипОтображенияСерииСлояГеографическойСхемы.Текст; 



// Заполнить источник данных значениями всех объектов. 

Для Каждого Город Из СлойГорода.Объекты Цикл 

    Город.Видимость = Истина; 

    СтрокаИсточникаДанных = ИсточникДанныхГеоСхемы.Добавить(); 

    СтрокаИсточникаДанных.ЗначениеГорода = Город.Значение; 

    СтрокаИсточникаДанных.НазваниеГорода = СлойГорода.ПолучитьЗначение(Город, СлойГорода.Серии.Название).Значение; 

КонецЦикла; 

ЭлементыФормы.ИсточникДанныхГеоСхемы.СоздатьКолонки(); 

Схема.Обновление = Истина; // Обновить поле географической схемы. 



// Назначить источник данных. 

СлойГорода.ИсточникДанных = ИсточникДанныхГеоСхемы;