ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / Загрузка bdf в ТЗ
10 сообщений из 10, страница 1 из 1
Загрузка bdf в ТЗ
    #36084203
Albert777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Albert777
Гость
Всем привет! Есть файл dbf. Возможно ли в 1С8 занести данные этого файла в ТЗ без перебора, простым копированием??
...
Рейтинг: 0 / 0
10.07.2009, 12:59
| Ответить | Цитировать | Написать  
Загрузка bdf в ТЗ
    #36084259
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Господин ПЖ
Участник
уличной магией
...
Рейтинг: 0 / 0
10.07.2009, 13:15
| Ответить | Цитировать | Написать  
Загрузка bdf в ТЗ
    #36084293
Albert777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Albert777
Гость
ты я смотрю шутник еще тот..
...
Рейтинг: 0 / 0
10.07.2009, 13:24
| Ответить | Цитировать | Написать  
Загрузка bdf в ТЗ
    #36084353
Фотография Dinamo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dinamo
Участник
Albert777Всем привет! Есть файл dbf. Возможно ли в 1С8 занести данные этого файла в ТЗ без перебора, простым копированием??
А Вы можете, например, скопировать книгу - "простым копированием", без копирования отдельных страниц?
...
Рейтинг: 0 / 0
10.07.2009, 13:48
| Ответить | Цитировать | Написать  
Загрузка bdf в ТЗ
    #36084613
Albert777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Albert777
Гость
Сделал, все работает.. В пустое табличное поле на форме выходят полностью вся таблица DBF
...

ПутьКФайлу = Файл.ПолноеИмяФайла;
ТекБаза = Новый XBase();
ТекБаза.ОткрытьФайл(ПутьКФайлу);
Если Не ТекБаза.Открыта() Тогда
Предупредить("Ошибка открытия файла!");
Возврат 0;
КонецЕсли;

ТаблОб = Новый ТаблицаЗначений;
КолвоПолейФайлаДБФ = ТекБаза.поля.Количество();
Для индекс = 0 по КолвоПолейФайлаДБФ-1 цикл
Поле = ТекБаза.поля.Получить(индекс);
ТаблОб.Колонки.Добавить(Поле.Имя);
КонецЦикла;

ТекБаза.Первая();
Пока НЕ ТекБаза.ВКонце() Цикл
НовСтрока = ТаблОб.Добавить();
Для н = 0 по Колво-1 Цикл
НовСтрока[н] = ТекБаза.ПолучитьЗначениеПоля(н);
КонецЦикла;
ТекБаза.Следующая();
КонецЦикла;
ТекБаза.ЗакрытьФайл();
ЭлементыФормы.ТабличноеПоле.Значение = ТаблОб;
ЭлементыФормы.ТабличноеПоле.СоздатьКолонки();
...
...
Рейтинг: 0 / 0
10.07.2009, 15:41
| Ответить | Цитировать | Написать  
Загрузка bdf в ТЗ
    #36084622
Albert777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Albert777
Гость
Еще хотелось бы выводить данные в табличное поле на форме, так чтобы длина каждого столбца выравнивалась по максимальной длине значения в текущем столбце. Может кто подскажет как это реализовать??
...
Рейтинг: 0 / 0
10.07.2009, 15:44
| Ответить | Цитировать | Написать  
Загрузка bdf в ТЗ
    #36084799
Фотография Dinamo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dinamo
Участник
Albert777
ТекБаза.Первая();
Пока НЕ Т екБаза.ВКонце() Цикл
НовСтрока = ТаблОб.Добавить() ;
Для н = 0 по Колво-1 Цикл
НовСтрока[н] = ТекБаза.ПолучитьЗначениеПоля(н);
КонецЦикла;
ТекБаза.Следующая();
КонецЦикла;


Как-то не согласуется в требованием
Albert777Всем привет! Есть файл dbf. Возможно ли в 1С8 занести данные этого файла в ТЗ без перебора , простым копированием??
...
Рейтинг: 0 / 0
10.07.2009, 17:00
| Ответить | Цитировать | Написать  
Загрузка bdf в ТЗ
    #36084814
Фотография Dinamo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dinamo
Участник
Albert777Еще хотелось бы выводить данные в табличное поле на форме, так чтобы длина каждого столбца выравнивалась по максимальной длине значения в текущем столбце. Может кто подскажет как это реализовать??
Поскольку вы все равно сделали цикл по каждой записи и каждому полю, накапливайте в информацию по длине содержимого полей например в "структуре". Потом перебрав элементы структуры установить параметры ширины для визуальной формы ТЗ.

Вот пример алгоритма:
При обходе полей первой записи для каждого поля формирует запись в структуру, значение - длина строковго представления значения поля в символах.
При обходе полей второй или последующих строк сравниваете ранее внесенное в структуру значение со значением в текущей записи, если оно больше то перезаписываете результат в структуру.
...
Рейтинг: 0 / 0
10.07.2009, 17:08
| Ответить | Цитировать | Написать  
Загрузка bdf в ТЗ
    #36086148
Albert777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Albert777
Гость
А что возможно без перебора занести данные из файла в ТЗ??
...
Рейтинг: 0 / 0
13.07.2009, 08:48
| Ответить | Цитировать | Написать  
Загрузка bdf в ТЗ
    #36091978
Мутабор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мутабор
Участник
Albert777А что возможно без перебора занести данные из файла в ТЗ??

Попробуй поиграть источником данных у ТЗ (если это ТЗ формы конечно).....
...
Рейтинг: 0 / 0
15.07.2009, 18:30
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / Загрузка bdf в ТЗ
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]