| Вопрос: Проблема с DataReport | Добавлено: 12.11.07 20:26 |
Автор вопроса:  Иван | Web-сайт: www.harami.ru
|
|
Подскажите, пожалуйста, почему при обращении к свойству Picture контрола RptImage программа сообщает, что такого свойства нет, хотя в окне свойство оно присутствует?
(М.б. эту проблему решит установка сервис-пака?) Заранее благодарен. |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #1 | Добавлено: 12.11.07 21:24 |
|
"сервис-пак" проблему не решит, т.к. проблемы нет.
Обращайтесь к свойствам DataReport ~~ так: ~~.Sections("Section1"  .Controls("Image1".PropXXX
|
||
|
Номер ответа: 2 Автор ответа: Иван Вопросов: 34 Ответов: 53 |
Web-сайт: Профиль | | #2 | Добавлено: 12.11.07 22:15 |
|
Глубокоуважаемый EUGU,
Именно так я и обращаюсь к свойствам - а как же еще? Так что проблема все-таки есть. (А сервис-пак ее действительно не решил. Кстати, после его установки в окне свойств отчета почему-то не появилось свойство Orientation) |
||
|
Номер ответа: 3 Автор ответа: EUGYВопросов: 0 Ответов: 454 |
Профиль | | #3 | Добавлено: 14.11.07 02:38 |
|
программа сообщает, что такого свойства нет
Вот я создал проект, добавил DataReport, поместил в секцию Detail ("Section1" объект RptImage ("Image1" и задал ему произвольную "картинку".
Private Sub Command1_Click() Dim rec As New ADODB.Recordset Set rec.ActiveConnection = Nothing rec.Fields.Append "qwerty", adBSTR rec.Open Dim pict As IPictureDisp Set pict = DataReport1.Sections("Section1" .Controls("Image1".Picture
Debug.Print pict.Type Set DataReport1.DataSource = rec  ataReport1.Show
End Sub Жму плечами, в чем Вы видите проблему? Может в том, что, если св-во Picture в дизайн-моде не задано, то при обращении к свойству Runtime-error 91? Но это проблема не DataReport. |
||
|
Номер ответа: 4 Автор ответа: ИванВопросов: 34 Ответов: 53 |
Web-сайт: Профиль | | #4 | Добавлено: 14.11.07 11:10 |
|
Может в том, что, если св-во Picture в дизайн-моде не задано, то при обращении к свойству Runtime-error 91?
Да, камень преткновения был именно в этом, спасибо большое. Однако, если задать свойство в дизайн-моде, то как его потом поменять? Проще говоря: как мне загрузить нужную картинку динамически? RptImage, оказывается, работает совсем не так, как Image в обычной форме: в частности, функция LoadPicture() картинку не загружает. Помогите, пожалуйста, у меня нет никаких руководств и даже файла справки. |
||
|
Номер ответа: 5 Автор ответа: EUGYВопросов: 0 Ответов: 454 |
Профиль | | #5 | Добавлено: 14.11.07 15:40 |
|
Dim pict As IPictureDisp Set pict = LoadPicture("C:\WINDOWS\Паркет.bmp"
Set DataReport1.Sections("Section1" .Controls("Image1".Picture = pict
|
||
|
Номер ответа: 6 Автор ответа: ИванВопросов: 34 Ответов: 53 |
Web-сайт: Профиль | | #6 | Добавлено: 14.11.07 17:19 |
|
Спасибо Вам огромное, EUGY.
Всё заработало. От души желаю удачи! |
||
Страница: 1 |