0
Karamello
12.11.22
✎
20:58
|
Имеется ТЗ, в которой на сервере создаются столбцы и строки с заполненными ячейками (таблица Пифагора).
Необходимо с помощью команд сделать действия: "Добавить строку", "Удалить строку", "Добавить колонку", "Удалить колонку".
Важное условие, колонки и строки должны изменяться от имеющейся на форме таблицы, т.е. "Нажимаем 'добавить строку', снизу добавляется строка с расчетами в ячейках. Нажимаем 'удалить строку', удаляется последняя строка. Тоже самое с колонками".
Ниже код, от которого следует плясать.
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
МассивРеквизитов = ПолучитьРеквизиты("ТаблицаУмножения");
Если МассивРеквизитов.Количество() = 1 Тогда
ДобавочныеРеквизиты = Новый Массив;
ТипКолонки = Новый ОписаниеТипов("Число");
Для Счет = 1 По 5 Цикл
ДобавочныеРеквизиты.Добавить(Новый РеквизитФормы("Число" + Счет, ТипКолонки, "ТаблицаУмножения",Строка(Счет)));
КонецЦикла;
ИзменитьРеквизиты(ДобавочныеРеквизиты);
Для Счет = 1 По 5 Цикл
НоваяКолонка = Элементы.Добавить("ТаблицаУмноженияЧисло" + Счет, Тип("ПолеФормы"), Элементы.ТаблицаУмножения);
НоваяКолонка.ПутьКДанным = "ТаблицаУмножения.Число" + Счет;
НоваяКолонка.Вид = ВидПоляФормы.ПолеВвода;
НоваяКолонка.ТолькоПросмотр = Истина;
КонецЦикла;
Для Счет = 1 По 5 Цикл
НоваяСтрока = ТаблицаУмножения.Добавить();
НоваяСтрока.КолонкаТаблицы = Счет;
НоваяСтрока.Число1 = Счет;
НоваяСтрока.Число2 = Счет * 2;
НоваяСтрока.Число3 = Счет * 3;
НоваяСтрока.Число4 = Счет * 4;
НоваяСтрока.Число5 = Счет * 5;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
|
|