Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Определение типа поля Character Binary / 3 сообщений из 3, страница 1 из 1
10.03.2010, 19:19
    #36512612
DMITRY_PEREDISTY
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение типа поля Character Binary
Есть ли функция что бы отличить поле типа Character от поля типа Character(binary) ?

TYPE и VARTYPE дают всегда "C"
А нужно, отличить. В структуре свободной таблицы это заложено, значит должна быть функция.
Ну не писать же на фоксе читалку dbf таблиц )
...
Рейтинг: 0 / 0
10.03.2010, 19:52
    #36512663
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение типа поля Character Binary
А тип у них действительно одинаковый. Отличается не сам тип, а кое-какие реквизиты этого типа.

Подробнее смотри описание функции AFIELDS() и в ней описание 6 столбца.

Также можно посмотреть, что вернет

Код: plaintext
?Set("Nocptrans")

Но с этой функцией надо осторожно обращаться. Результат может быть парадоксальный.
...
Рейтинг: 0 / 0
10.03.2010, 20:14
    #36512697
DMITRY_PEREDISTY
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение типа поля Character Binary
Set("Nocptrans") вернул список полей которые не перековываются, туда вошли поля N, I, D, и поля C которые объявлены как binary
Можно наверное попробовать что то вроде :

if type(lcFieldName)='C' .and. [,]+lcFieldName+[,] $ [,]+Set("Nocptrans")+[,]
wait ' Это оно - счар- бинару!' wind
endif
*******************
Функция afields создала двумерный массив с атрибутами каждого поля
для каждого i-го поля 6-й элемент логический обозначает что поле не конвертируется.
Короче те же яйца, только сбоку.

Спасибо за помощь!
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Определение типа поля Character Binary / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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