|
|
|
datareport, не могу обратиться controls в datareport
|
|||
|---|---|---|---|
|
#18+
помогите пожалуйста с controls в Datareport надо связаться с таблицей в которой 3 поля и все значения вывести в Datareport проблема с RptTextBox как к ним обратиться создала Datareport установила 3 RptTextBox которые unbound теперь при нажатии на кнопку пишу след.код автор Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset With cn .Provider = "Microsoft.Jet.OLEDB.4.0;" .ConnectionString = "Data Source=" & App.path & "\bagrut.mdb" .Open End With With rs .ActiveConnection = cn .CursorType = adOpenDynamic .LockType = adLockReadOnly .Source = " select * from 16106Without" .Open End With Set DataReport2.DataSource = rs Set DataReport2.Sections(1).Controls("Text1").DataField = rs.Fields(0) Set DataReport2.Sections(1).Controls("Text2").DataField = rs.Fields(1) Set DataReport2.Sections(1).Controls("Text3").DataField = rs.Fields(2) DataReport2.Show Set rs = Nothing Set cn = Nothing в строчках где обращаюсь к Controls("Text") получаю ошибку что надо изменить ,помогите ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2007, 11:16 |
|
||
|
datareport, не могу обратиться controls в datareport
|
|||
|---|---|---|---|
|
#18+
Датафилд хочет имя поля а не значение. Код: plaintext Текст ошибки в студию. Переводить не надо. Magnus ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2007, 16:00 |
|
||
|
datareport, не могу обратиться controls в datareport
|
|||
|---|---|---|---|
|
#18+
спасибо, попробывала ,но всё равно даёт ошибку Subscript out of range такое ощущение ,что что- то в синтаксе т.к когда ставлю точку(.) после автор Set DataReport2.Sections(1).Controls("Text1"). не появляется список из которого можно выбрать - так я уже от себя добавляю автор DataField может надо как то по другому записать ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2007, 16:23 |
|
||
|
datareport, не могу обратиться controls в datareport
|
|||
|---|---|---|---|
|
#18+
У меня была та же проблема. Но после того, как я в коде оставил только Set DataReport2.DataSource = rs, а в свойствах RptTextBox(text1, и т.д.) в DataField просто написал имя соответствующего поля все заработало. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2007, 17:02 |
|
||
|
datareport, не могу обратиться controls в datareport
|
|||
|---|---|---|---|
|
#18+
ElinaChSubscript out of range Проверь существует ли секция и поле с таким именем. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2007, 17:17 |
|
||
|
datareport, не могу обратиться controls в datareport
|
|||
|---|---|---|---|
|
#18+
Всем большое спасибо hawkV, сделала точно так же оставила только Set DataReport2.DataSource = rs и в DataField вставила поля - всё работает Большое спасибо ещё один вопрос Как можно изменять Caption у RptLabel в PageHeader(Section2) если Set DataReport3.Sections(2).Controls("Label1").Caption = "caption" даёт ошибку ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.01.2007, 12:32 |
|
||
|
datareport, не могу обратиться controls в datareport
|
|||
|---|---|---|---|
|
#18+
ElinaCh, "даёт ошибку" - это не описание. Скорее всего, надо убрать Set (или заменить на Let). ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.01.2007, 12:53 |
|
||
|
datareport, не могу обратиться controls в datareport
|
|||
|---|---|---|---|
|
#18+
Заменила Set на Let - работает спасибо есть ли возможность пронумеровать каждую строку например на каждой странице по 10 строчек и желатетьно каждую строку пронумеровать в(Detail -section1) и на каждой странице добавить её номер ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.01.2007, 14:12 |
|
||
|
datareport, не могу обратиться controls в datareport
|
|||
|---|---|---|---|
|
#18+
ElinaChЗаменила Set на Let - работает Внимательнее надо быть. Я дал пример без Set еще в первом ответе. Set - используется для работы с обьектами, Let - для свойств и переменных но т.к. он является оператором по умолчанию то его никогда напрямую и не пишут. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.01.2007, 14:43 |
|
||
|
datareport, не могу обратиться controls в datareport
|
|||
|---|---|---|---|
|
#18+
спасибо не знала есть ли возможность пронумеровать страницы, строки ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.01.2007, 15:36 |
|
||
|
datareport, не могу обратиться controls в datareport
|
|||
|---|---|---|---|
|
#18+
Для того чтобы пронумеравать страницы надо в Page Header добавить rptLabel и в его свойстве Caption написать %p-это номер листа(%P- это количество листов). Или по нажатию правой клавишей мыши, в появимшеися меню выбрать: Insert Control->Current Page Number. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.01.2007, 18:32 |
|
||
|
|

start [/forum/topic.php?fid=60&fpage=250&tid=2164665]: |
0ms |
get settings: |
10ms |
get forum list: |
17ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
49ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
49ms |
get tp. blocked users: |
1ms |
| others: | 241ms |
| total: | 384ms |

| 0 / 0 |
