powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / .CursorFill(.T.).
4 сообщений из 4, страница 1 из 1
.CursorFill(.T.).
    #33708112
nikoloz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет всем!
Создаю в дизаинере курсор адаптер.
Где надо задать .CursorFill(.T.).
Спасибо.
...
Рейтинг: 0 / 0
.CursorFill(.T.).
    #33708502
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Cursor Adapter - это класс. Т.е. сначала надо создать экземпляр этого класса и только потом с ним можно будет что-то делать.

Код: plaintext
1.
2.
ca = NewObject("MyClassCursorAdapter","MyClassLibrary.vcx")
ca.AutoOpen()
...
Рейтинг: 0 / 0
.CursorFill(.T.).
    #33709520
sar99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!
Примерно так:
LO_T_USER_R=CREATEOBJECT('CURSORADAPTER')
op_t_user=createobject('ADODB.RECORDSET')
select 0
WITH LO_T_USER_R
.ALIAS = 'T_USER_ROLE'
.DATASOURCETYPE = 'ADO'
.DATASOURCE = OP_T_USER_R
.SELECTCMD = 'Select * from T_USER_ROLE'
.DATASOURCE.ACTIVECONNECTION = OC_N
IF .CURSORFILL()
select ('T_USER_ROLE')
GO TOP
ELSE
WAIT WINDOW 'ошибка!' TIMEOUT 4
ENDIF
ENDWITH
...
Рейтинг: 0 / 0
.CursorFill(.T.).
    #33711401
nikoloz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторCursor Adapter - это класс. Т.е. сначала надо создать экземпляр этого класса и только потом с ним можно будет что-то делать.

ca = NewObject("MyClassCursorAdapter","MyClassLibrary.vcx")
ca.AutoOpen()


автор Добрый день!
Примерно так:
LO_T_USER_R=CREATEOBJECT('CURSORADAPTER')
op_t_user=createobject('ADODB.RECORDSET')
select 0
WITH LO_T_USER_R
.ALIAS = 'T_USER_ROLE'
.DATASOURCETYPE = 'ADO'
.DATASOURCE = OP_T_USER_R
.SELECTCMD = 'Select * from T_USER_ROLE'
.DATASOURCE.ACTIVECONNECTION = OC_N
IF .CURSORFILL()
select ('T_USER_ROLE')
GO TOP
ELSE
WAIT WINDOW 'ошибка!' TIMEOUT 4
ENDIF
ENDWITH

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


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