СтрокиДанных.Количество (DataRowCollection.Count) Свойство

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

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

СеткаДанных1 = Ф.СеткаДанных();
СеткаДанных1.Родитель = Форма1;
СеткаДанных1.ТекстЗаголовка = "Сетка данных";
СеткаДанных1.Стыковка = Ф.СтильСтыковки.Заполнение;
	
ТаблицаДанных1 = Ф.ТаблицаДанных("ТД1");
Колонка1 = ТаблицаДанных1.Колонки.Добавить(Ф.КолонкаДанных("ФИО", Ф.ТипДанных.Строка));

Стр13 = "Трифонов Юрий Никифорович
|Шигаев Агап Денисович
|Сочеванова Анфиса Георгиевна
|Врунгель Христофор Бонифатьевич
|Шикалов Игнатий Маркович
|Сергеевич Аристарх Изяславович
|Бондарчук Александр Ермолаевич
|Ефремова Ева Степановна
|Моисеева Зинаида Никитевна
|Кузьмова Лиана Игнатиевна
|Ковшутина Алина Игоревна
|Чемериса Дина Глебовна
|Сухоруков Давид Александрович
|Шагидзянова Наталия Николаевна
|Игошина Влада Емельяновна
|Бортник Борис Федосиевич
|Заболотный Евсей Фролович
|Сонин Викентий Мечиславович
|Коваленко Злата Фомевна
|Шатохина Людмила Александровна
|Пряхин Владислав Владимирович";

Для А = 1 По СтрЧислоСтрок(Стр13) Цикл
	ТаблицаДанных1.Строки.Добавить(ТаблицаДанных1.НоваяСтрока());
КонецЦикла;

М_ФИО = Ф.МассивСписок();
Для А = 1 По СтрЧислоСтрок(Стр13) Цикл
	Стр14 = СтрПолучитьСтроку(Стр13, А);
	М9 = СтрРазделить(Стр14, ",");
	М_ФИО.Добавить(М9[0]);
КонецЦикла;
ТаблицаДанных1.ЗагрузитьКолонку(М_ФИО, 0);

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

СтилиТаблицы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.Колонки.Добавить(Ф.КолонкаДанных("ФИО", Ф.ТипДанных.Строка));

Стр13 = "Трифонов Юрий Никифорович
|Шигаев Агап Денисович
|Сочеванова Анфиса Георгиевна
|Врунгель Христофор Бонифатьевич
|Шикалов Игнатий Маркович
|Сергеевич Аристарх Изяславович
|Бондарчук Александр Ермолаевич
|Ефремова Ева Степановна
|Моисеева Зинаида Никитевна
|Кузьмова Лиана Игнатиевна
|Ковшутина Алина Игоревна
|Чемериса Дина Глебовна
|Сухоруков Давид Александрович
|Шагидзянова Наталия Николаевна
|Игошина Влада Емельяновна
|Бортник Борис Федосиевич
|Заболотный Евсей Фролович
|Сонин Викентий Мечиславович
|Коваленко Злата Фомевна
|Шатохина Людмила Александровна
|Пряхин Владислав Владимирович";

Для А = 1 По СтрЧислоСтрок(Стр13) Цикл
	ТаблицаДанных1.Строки.Добавить(ТаблицаДанных1.НоваяСтрока());
КонецЦикла;

М_ФИО = Ф.МассивСписок();
Для А = 1 По СтрЧислоСтрок(Стр13) Цикл
	Стр14 = СтрПолучитьСтроку(Стр13, А);
	М9 = СтрРазделить(Стр14, ",");
	М_ФИО.Добавить(М9[0]);
КонецЦикла;
ТаблицаДанных1.ЗагрузитьКолонку(М_ФИО, 0);

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

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

СеткаДанных1.ИсточникДанных = ТаблицаДанных1;

Строки = ТаблицаДанных1.Строки;

Сообщить(?(
Строки.Количество = 21
, "", "!!! ") + "СтрокиДанных.Количество (DataRowCollection.Count) Свойство" + " " + ТекущаяДата());