:: Visual Foxpro, Foxpro for DOS
Как определить наличие колонки в Grid?
ZenTigra

Сообщений: 514
Дата регистрации: 03.12.2004
Необходимо узнать наличие колонки в Grid, подскажите правильность написания синтаксиса команды

Есть Grid1, в нем нужно определить наличие колонки Column1

IF PEMSTATUS(THISFORM, "Grid1.Column1", 5)=.F.
WAIT WINDOWS 'Колонка Column1 отсутствует'
ENDIF

PS.Где ошибка?



Исправлено 1 раз(а). Последнее : ZenTigra, 11.10.18 14:21
Ratings: 0 negative/0 positive
Re: Как определить наличие колонки в Grid?
PaulWist

Сообщений: 14601
Дата регистрации: 01.04.2004
o = CREATEOBJECT('Form')
with o
.addobject('Grid1', 'Grid')
.Grid1.ColumnCount = 1
IF not PEMSTATUS(o.Grid1, 'Column2',5 )
WAIT WINDOWS 'Колонка Column2 отсутствует'
ENDIF
ENDWITH


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)




Исправлено 1 раз(а). Последнее : PaulWist, 11.10.18 14:32
Ratings: 0 negative/0 positive
Re: Как определить наличие колонки в Grid?
прошелмимо

Сообщений: 784
Дата регистрации: 21.02.2012
PEMSTATUS + VARTYPE
золотой костыль
зачем? нискажу

WITH CREATEOBJECT('Form')
.addobject('Grid1', 'Grid')
.Grid1.ColumnCount = 1
* .Grid1.addobject('Column2', 'Column')
IF ! ( PEMSTATUS(.Grid1, 'Column2',5 ) AND VARTYPE(.Grid1.Column2) = 'O' )
WAIT WINDOWS 'Колонка Column2 отсутствует'
ELSE
WAIT WINDOWS 'йес'
ENDIF
ENDWITH
Ratings: 0 negative/0 positive
Re: Как определить наличие колонки в Grid?
Igor Korolyov
Автор

Сообщений: 34580
Дата регистрации: 28.05.2002
ZenTigra
Где ошибка?
вот тут:
ZenTigra
нужно определить наличие колонки Column1


------------------
WBR, Igor
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 36 dafni_2004 leonid Rifat  (Гостей: 33)

© 2000-2024 Fox Club 
Яндекс.Метрика