ТаблицаДанных.НаборДанных (DataTable.DataSet) Свойство

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

СеткаДанных1 = Форма1.ЭлементыУправления.Добавить(Ф.СеткаДанных());
СеткаДанных1.Стыковка = Ф.СтильСтыковки.Заполнение;

ТаблицаДанных1 = Ф.ТаблицаДанных("ТД1");
Колонки1 = ТаблицаДанных1.Колонки;
Колонка1 = Колонки1.Добавить(Ф.КолонкаДанных("№ н/п", Ф.ТипДанных.Число));
Колонка2 = Колонки1.Добавить(Ф.КолонкаДанных("ФИО", Ф.ТипДанных.Строка));

Строки1 = ТаблицаДанных1.Строки;
ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока());
ТекСтрока.УстановитьЭлемент("№ н/п", 1);
ТекСтрока.УстановитьЭлемент("ФИО", "Иванов Иван Иванович");

ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока());
ТекСтрока.УстановитьЭлемент("№ н/п", 2);
ТекСтрока.УстановитьЭлемент("ФИО", "Семенов Семен Семенович");

ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока());
ТекСтрока.УстановитьЭлемент("№ н/п", 3);
ТекСтрока.УстановитьЭлемент("ФИО", "Петров Петр Петрович");

СтильТаблицыСеткиДанных1 = Ф.СтильТаблицыСеткиДанных();
СтильТаблицыСеткиДанных1.ИмяОтображаемого = "ТД1";

СтильКолонкиПолеВвода1 = Ф.СтильКолонкиПолеВвода();
СтильКолонкиПолеВвода1.ИмяОтображаемого = "№ н/п";
СтильКолонкиПолеВвода1.Ширина = 50;
СтильКолонкиПолеВвода1.ТекстЗаголовка = "№ н/п";
СтильКолонкиПолеВвода1.Выравнивание = Ф.ГоризонтальноеВыравнивание.Право;

СтильКолонкиПолеВвода2 = Ф.СтильКолонкиПолеВвода();
СтильКолонкиПолеВвода2.ИмяОтображаемого = "ФИО";
СтильКолонкиПолеВвода2.Ширина = 200;
СтильКолонкиПолеВвода2.ТекстЗаголовка = "ФИО";

СтилиКолонкиСеткиДанных1 = СтильТаблицыСеткиДанных1.СтилиКолонкиСеткиДанных;
СтилиКолонкиСеткиДанных1.Добавить(СтильКолонкиПолеВвода1);
СтилиКолонкиСеткиДанных1.Добавить(СтильКолонкиПолеВвода2);

СеткаДанных1.СтилиТаблицы.Добавить(СтильТаблицыСеткиДанных1);

НаборДанных1 = Ф.НаборДанных();
НаборДанных1.ИмяНабораДанных = "НД1";
НаборДанных1.Таблицы.Добавить(ТаблицаДанных1);
Сообщить("ТаблицаДанных1.НаборДанных.ИмяНабораДанных = " + ТаблицаДанных1.НаборДанных.ИмяНабораДанных);

СеткаДанных1.ИсточникДанных = НаборДанных1;

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

СеткаДанных1 = Форма1.ЭлементыУправления.Добавить(Ф.СеткаДанных());
СеткаДанных1.Стыковка = Ф.СтильСтыковки.Заполнение;

ТаблицаДанных1 = Ф.ТаблицаДанных("ТД1");
Колонки1 = ТаблицаДанных1.Колонки;
Колонка1 = Колонки1.Добавить(Ф.КолонкаДанных("№ н/п", Ф.ТипДанных.Число));
Колонка2 = Колонки1.Добавить(Ф.КолонкаДанных("ФИО", Ф.ТипДанных.Строка));

Строки1 = ТаблицаДанных1.Строки;
ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока());
ТекСтрока.УстановитьЭлемент("№ н/п", 1);
ТекСтрока.УстановитьЭлемент("ФИО", "Иванов Иван Иванович");

ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока());
ТекСтрока.УстановитьЭлемент("№ н/п", 2);
ТекСтрока.УстановитьЭлемент("ФИО", "Семенов Семен Семенович");

ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока());
ТекСтрока.УстановитьЭлемент("№ н/п", 3);
ТекСтрока.УстановитьЭлемент("ФИО", "Петров Петр Петрович");

СтильТаблицыСеткиДанных1 = Ф.СтильТаблицыСеткиДанных();
СтильТаблицыСеткиДанных1.ИмяОтображаемого = "ТД1";

СтильКолонкиПолеВвода1 = Ф.СтильКолонкиПолеВвода();
СтильКолонкиПолеВвода1.ИмяОтображаемого = "№ н/п";
СтильКолонкиПолеВвода1.Ширина = 50;
СтильКолонкиПолеВвода1.ТекстЗаголовка = "№ н/п";
СтильКолонкиПолеВвода1.Выравнивание = Ф.ГоризонтальноеВыравнивание.Право;

СтильКолонкиПолеВвода2 = Ф.СтильКолонкиПолеВвода();
СтильКолонкиПолеВвода2.ИмяОтображаемого = "ФИО";
СтильКолонкиПолеВвода2.Ширина = 200;
СтильКолонкиПолеВвода2.ТекстЗаголовка = "ФИО";

СтилиКолонкиСеткиДанных1 = СтильТаблицыСеткиДанных1.СтилиКолонкиСеткиДанных;
СтилиКолонкиСеткиДанных1.Добавить(СтильКолонкиПолеВвода1);
СтилиКолонкиСеткиДанных1.Добавить(СтильКолонкиПолеВвода2);

СеткаДанных1.СтилиТаблицы.Добавить(СтильТаблицыСеткиДанных1);

НаборДанных1 = Ф.НаборДанных();
НаборДанных1.ИмяНабораДанных = "НД1";
НаборДанных1.Таблицы.Добавить(ТаблицаДанных1);

СеткаДанных1.ИсточникДанных = НаборДанных1;

Сообщить(?(
ТаблицаДанных1.НаборДанных.ИмяНабораДанных = "НД1"
, "", "!!! ") + "ТаблицаДанных.НаборДанных (DataTable.DataSet) Свойство" + " " + ТекущаяДата());