// Траб - Таблица значений с данными // Диаграмма - ЭлементыФормы.Диаграмма Процедура ПостроитьДиаграмму(Траб,Диаграмма) Для Каждого Колонка из Траб.Колонки Цикл Если Траб.Колонки.Индекс(Колонка) <> 0 Тогда Диаграмма.Серии.Добавить(Колонка.Имя); КонецЕсли; КонецЦикла; Для Каждого СтрТраб из Траб Цикл Точка=Диаграмма.Точки.Добавить(СтрТраб.Получить(0)); Индекс=0; Для Каждого Серия из Диаграмма.Серии Цикл Индекс=Индекс+1; Диаграмма.УстановитьЗначение(Точка,Серия,СтрТраб.Получить(Индекс)); КонецЦикла; КонецЦикла; КонецПроцедуры
