Как добыть MEMO-поле ?

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 8034
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 28 раз
Поблагодарили: 96 раз

Как добыть MEMO-поле ?

Сообщение Игорь Столяров »

Привет всем !

Я снова с "детским" вопросом ... ;)

Среда: С6 9059 & ABC
Есть некий список в TPS и в нем несколько полей и MEMO-поле и есть некий BROWSE для просмотра этого списка. Все хорошо.
При инициализации BROWSE (точнее структуры VIEW для BROWSE) включается режим чтения без MEMO полей (NOMEMO(ФАЙЛ)), и это тоже правильно.
А как добыть в этом случае при необходимости содержание Memo-поля из списка ? Оператора обратного по действию NOMEMO(ФАЙЛ) ведь нет ...
Закрывать все файлы и заново их открывать ? Сейчас сделал через ALIAS:

Clear(ALIAS.RECORD)
ALIAS.RECORD :=: FILE.RECORD
IF ~Access:ALIAS.Fetch(ALIAS.ByPrimaryKey) then Message(ALIAS.MEMO_FIELD).

Но это как-то тупо ... плюс добавилось описание ALIAS'а файла .... Может быть есть более простые пути ?

P/S: С BLOB полями тоже самое ... :(
Make Clarion Great Again ! 😎
Yufil
Ветеран движения
Сообщения: 1277
Зарегистрирован: 16 Май 2006, 14:34
Контактная информация:

Re: Как добыть MEMO-поле ?

Сообщение Yufil »

Вроде Nomemo действует только на один оператор. Так что ThisWindow.Update() или Reget(File,Position(File)) должны загрузить Memo. Максимум со второй попытки...
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 8034
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 28 раз
Поблагодарили: 96 раз

Re: Как добыть MEMO-поле ?

Сообщение Игорь Столяров »

Огромное спасибо ! Все получилось. :)

Вставка кода:

IF ~Access:FILE.Fetch(FILE.ByPrimaryKey) then Message(FILE.MEMO_FIELD).

прекрасно работает. Просто до меня как-то не дошло повторно считать запись, если она и так уже считана и доступна ...

Еще раз спасибо ! :)
Make Clarion Great Again ! 😎
Ответить