Работа с данными

Как просмотреть список обьектов, содержащихся в DataEnvironment

. Hо в свойства DataEnvironment не нашел свойств вроде Objects или Cursors, Relations.

В Click() фоpмы помести следующий код и щёлкни по ней, дальше думаю
поймёшь.

FOR i = AMEMBERS(anThisForm, ThisForm, 2) TO 1 STEP -1
IF UPPER( EVAL('ThisForm.' + anThisForm[i] + '.BaseClass') ) ='DATAENVIRONMENT'

FOR j = 1 TO AMEMBERS( anDE, EVAL('ThisForm.' + anThisForm[i] ), 2)

WAIT WINDOW 'ThisForm.' + anThisForm[i] + '.' + anDE[j] && Лови, вот он

ENDFOR

ENDIF
ENDFOR

A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок. г. Рига E-mail: apinigin@olainfarm.lv

Автор публикации

не в сети 1 год

Joys

2

Комментарии: 5Публикации: 200Регистрация: 25-06-2000