Чтение и запись.
Тип: ТипДанных (DataType).
Возвращает или задает тип данных, хранящихся в колонке. Одно из значений перечисления ТипДанных (DataType). Значение по умолчанию - Строка.
Колонка0.ТипДанных = ТФ.ТипДанных.Число;
Перем ТФ, Колонка0; Функция РазобратьСтроку(Строка, Разделитель) Стр = СтрЗаменить(Строка,Разделитель,символы.ПС); М = Новый Массив; Если ПустаяСтрока(Стр) Тогда Возврат М; КонецЕсли; Для Ч = 1 По СтрЧислоСтрок(Стр) Цикл М.Добавить(СтрПолучитьСтроку(Стр,Ч)); КонецЦикла; Возврат М; КонецФункции Процедура ПриОткрытии() Экспорт ТипДанных = Колонка0.ТипДанных; ТФ.Уведомление().Показать("Колонка0.ТипДанных = " + ТФ.ТипДанных.Имя(ТипДанных), -1); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Окно1 = ТФ.Верхний.Добавить(ТФ.Окно()); Окно1.Заполнить(); Таблица1 = Окно1.Добавить(ТФ.Таблица()); Таблица1.Ширина = ТФ.Величина.Заполнить(); Таблица1.Высота = ТФ.Величина.Абсолютно(13); ТаблицаДанных1 = ТФ.ТаблицаДанных(); КолонкиТаб = ТаблицаДанных1.Колонки; Колонка0 = КолонкиТаб.Добавить(ТФ.КолонкаДанных("№ н/п")); Колонка0.ТипДанных = ТФ.ТипДанных.Число; Колонка1 = КолонкиТаб.Добавить(ТФ.КолонкаДанных("ФИО", ТФ.ТипДанных.Строка)); Колонка2 = КолонкиТаб.Добавить(ТФ.КолонкаДанных("ДатаРождения", ТФ.ТипДанных.Дата)); Колонка3 = КолонкиТаб.Добавить(ТФ.КолонкаДанных("Высшее образование", ТФ.ТипДанных.Булево)); Колонка4 = КолонкиТаб.Добавить(ТФ.КолонкаДанных("Рейтинг", ТФ.ТипДанных.Число)); Колонка5 = КолонкиТаб.Добавить(ТФ.КолонкаДанных("Инкремент", ТФ.ТипДанных.Число)); Колонка5.АвтоПриращение = Истина; Колонка5.НачальноеЧисло = 25; Колонка5.ШагПриращения = 5; Стр13 = "Трифонов Юрий Никифорович,19990607,Истина,61.80 |Шигаев Агап Денисович,19991001,Ложь,48.99 |Сочеванова Анфиса Георгиевна,19970909,Истина,31.08 |Врунгель Христофор Бонифатьевич,19901010,Истина,53.22 |Шикалов Игнатий Маркович,19901010,Истина,53.22 |Сергеевич Аристарх Изяславович,19950621,Ложь,25.97 |Бондарчук Александр Ермолаевич,19930713,Истина,89.53 |Ефремова Ева Степановна,19990105,Ложь,12.11 |Моисеева Зинаида Никитевна,19930616,Истина,33.66 |Кузьмова Лиана Игнатиевна,19930621,Ложь,40.70"; Для А = 1 По СтрЧислоСтрок(Стр13) Цикл ТаблицаДанных1.Строки.Добавить(ТаблицаДанных1.НоваяСтрока()); КонецЦикла; М_Счетчик = Новый Массив(); М_ФИО = Новый Массив(); М_ДатаРождения = Новый Массив(); М_ВысшееОбразование = Новый Массив(); М_КоличествоБонусов = Новый Массив(); Для А = 1 По СтрЧислоСтрок(Стр13) Цикл Стр14 = СтрПолучитьСтроку(Стр13, А); М9 = РазобратьСтроку(Стр14, ","); М_Счетчик.Добавить(А); М_ФИО.Добавить(М9[0]); М_ДатаРождения.Добавить(Дата("" + М9[1])); М_ВысшееОбразование.Добавить(?(М9[2] = "Истина", Истина, Ложь)); М_КоличествоБонусов.Добавить(Число(М9[3])); КонецЦикла; ТаблицаДанных1.ЗагрузитьКолонку(М_Счетчик, 0); ТаблицаДанных1.ЗагрузитьКолонку(М_ФИО, 1); ТаблицаДанных1.ЗагрузитьКолонку(М_ДатаРождения, "ДатаРождения"); ТаблицаДанных1.ЗагрузитьКолонку(М_ВысшееОбразование, Колонка3); ТаблицаДанных1.ЗагрузитьКолонку(М_КоличествоБонусов, Колонка4); Таблица1.ТаблицаДанных = ТаблицаДанных1; СтильТаблицы1 = ТФ.СтильТаблицы(); СтильТаблицы1.ЛинияМеждуЯчейками = Ложь; Таблица1.СтильТаблицы = СтильТаблицы1; СтильКолонки1 = ТФ.СтильКолонки(); СтильКолонки1.ВыравниваниеТекста = ТФ.ВыравниваниеТекста.Центр; СтилиКолонки1 = ТФ.СтилиКолонки(); СтилиКолонки1.Добавить(Колонка3, СтильКолонки1); СтильТаблицы1.СтилиКолонки = СтилиКолонки1; ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();
Перем ТФ, Колонка0, ТипДанных; Функция РазобратьСтроку(Строка, Разделитель) Стр = СтрЗаменить(Строка,Разделитель,символы.ПС); М = Новый Массив; Если ПустаяСтрока(Стр) Тогда Возврат М; КонецЕсли; Для Ч = 1 По СтрЧислоСтрок(Стр) Цикл М.Добавить(СтрПолучитьСтроку(Стр,Ч)); КонецЦикла; Возврат М; КонецФункции Процедура ПриОткрытии() Экспорт ТипДанных = Колонка0.ТипДанных; ТФ.Уведомление().Показать("Колонка0.ТипДанных = " + ТФ.ТипДанных.Имя(ТипДанных), -1); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Окно1 = ТФ.Верхний.Добавить(ТФ.Окно()); Окно1.Заполнить(); Таблица1 = Окно1.Добавить(ТФ.Таблица()); Таблица1.Ширина = ТФ.Величина.Заполнить(); Таблица1.Высота = ТФ.Величина.Абсолютно(13); ТаблицаДанных1 = ТФ.ТаблицаДанных(); КолонкиТаб = ТаблицаДанных1.Колонки; Колонка0 = КолонкиТаб.Добавить(ТФ.КолонкаДанных("№ н/п")); Колонка0.ТипДанных = ТФ.ТипДанных.Число; Колонка1 = КолонкиТаб.Добавить(ТФ.КолонкаДанных("ФИО", ТФ.ТипДанных.Строка)); Колонка2 = КолонкиТаб.Добавить(ТФ.КолонкаДанных("ДатаРождения", ТФ.ТипДанных.Дата)); Колонка3 = КолонкиТаб.Добавить(ТФ.КолонкаДанных("Высшее образование", ТФ.ТипДанных.Булево)); Колонка4 = КолонкиТаб.Добавить(ТФ.КолонкаДанных("Рейтинг", ТФ.ТипДанных.Число)); Колонка5 = КолонкиТаб.Добавить(ТФ.КолонкаДанных("Инкремент", ТФ.ТипДанных.Число)); Колонка5.АвтоПриращение = Истина; Колонка5.НачальноеЧисло = 25; Колонка5.ШагПриращения = 5; Стр13 = "Трифонов Юрий Никифорович,19990607,Истина,61.80 |Шигаев Агап Денисович,19991001,Ложь,48.99 |Сочеванова Анфиса Георгиевна,19970909,Истина,31.08 |Врунгель Христофор Бонифатьевич,19901010,Истина,53.22 |Шикалов Игнатий Маркович,19901010,Истина,53.22 |Сергеевич Аристарх Изяславович,19950621,Ложь,25.97 |Бондарчук Александр Ермолаевич,19930713,Истина,89.53 |Ефремова Ева Степановна,19990105,Ложь,12.11 |Моисеева Зинаида Никитевна,19930616,Истина,33.66 |Кузьмова Лиана Игнатиевна,19930621,Ложь,40.70"; Для А = 1 По СтрЧислоСтрок(Стр13) Цикл ТаблицаДанных1.Строки.Добавить(ТаблицаДанных1.НоваяСтрока()); КонецЦикла; М_Счетчик = Новый Массив(); М_ФИО = Новый Массив(); М_ДатаРождения = Новый Массив(); М_ВысшееОбразование = Новый Массив(); М_КоличествоБонусов = Новый Массив(); Для А = 1 По СтрЧислоСтрок(Стр13) Цикл Стр14 = СтрПолучитьСтроку(Стр13, А); М9 = РазобратьСтроку(Стр14, ","); М_Счетчик.Добавить(А); М_ФИО.Добавить(М9[0]); М_ДатаРождения.Добавить(Дата("" + М9[1])); М_ВысшееОбразование.Добавить(?(М9[2] = "Истина", Истина, Ложь)); М_КоличествоБонусов.Добавить(Число(М9[3])); КонецЦикла; ТаблицаДанных1.ЗагрузитьКолонку(М_Счетчик, 0); ТаблицаДанных1.ЗагрузитьКолонку(М_ФИО, 1); ТаблицаДанных1.ЗагрузитьКолонку(М_ДатаРождения, "ДатаРождения"); ТаблицаДанных1.ЗагрузитьКолонку(М_ВысшееОбразование, Колонка3); ТаблицаДанных1.ЗагрузитьКолонку(М_КоличествоБонусов, Колонка4); Таблица1.ТаблицаДанных = ТаблицаДанных1; СтильТаблицы1 = ТФ.СтильТаблицы(); СтильТаблицы1.ЛинияМеждуЯчейками = Ложь; Таблица1.СтильТаблицы = СтильТаблицы1; СтильКолонки1 = ТФ.СтильКолонки(); СтильКолонки1.ВыравниваниеТекста = ТФ.ВыравниваниеТекста.Центр; СтилиКолонки1 = ТФ.СтилиКолонки(); СтилиКолонки1.Добавить(Колонка3, СтильКолонки1); СтильТаблицы1.СтилиКолонки = СтилиКолонки1; ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.ЗапуститьИЗавершить(); Сообщить(?( ТФ.ТипДанных.Имя(ТипДанных) = "Число" , "", "!!! ") + "КолонкаДанных.ТипДанных (DataColumn.DataType) Свойство" + " " + ТекущаяДата() + Символы.ПС);