powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Несколько OleBoundControl на форме, что делать?
2 сообщений из 2, страница 1 из 1
Несколько OleBoundControl на форме, что делать?
    #32511484
YoungUser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Кто может объяснить, в чем ошибка
1. Есть две таблицы в БД: company и models, каждая из которых содержит поле General c картинкам, поля соответственно emblem и car .
2. Есть форма, на которой установлены OleBoundControl1 и OleBoundControl2
Для OleBoundControl1 в окне Properties в ControlSource указываю company.emblem.
Для OleBoundControl2 в окне Properties в ControlSource указываю models.car
3. И есть на форме кнопка SHOW со следующим текстом:
CLOSE DATABASES
OPEN DATABASE D:\cursivoi\automobiles  имя БД
select a
Use automobiles!company
scan for company.company_name = значение_из_textBox
thisform.oleboundcontrol1.refresh
endscan

select b
Use models
scan for models.model = значение_из_lдругого_textBox-а
thisform.oleboundcontrol2.refresh
endscan
И вот, уже при запуске формы [«!»] выскакивает окно ошибки с текстом : MODELS is not an object. Unbinding object OleBoundControl2. При этом при нажатии кнопки SHOW отображается только рисунок в OleBoundControl1, тот что из company.emblem. Ну, и что не так? Как вывести и второй рисунок?
...
Рейтинг: 0 / 0
Несколько OleBoundControl на форме, что делать?
    #32511621
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Начать с удаления строки

CLOSE DATABASES

в кнопке SHOW

Так-как теряется связь объектов...

2. Прописать (если оставить CLOSE DATABASES)

Код: plaintext
1.
2.
3.
StrToFile(company.emblem, m.gctmp+'tmp1.jpg')
IF file(m.gctmp+'tmp1.jpg')
  THISFORM.OleBoundControl1.Picture=m.gctmp+'tmp1.jpg'
endif


Код: plaintext
1.
2.
3.
StrToFile(models.car, m.gctmp+'tmp2.jpg')
IF file(m.gctmp+'tmp2.jpg')
  THISFORM.OleBoundControl2.Picture=m.gctmp+'tmp2.jpg'
endif


уже в методе кнопки SHOW в соответствующих местах (и в методе Init формы)...
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Несколько OleBoundControl на форме, что делать?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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