VPF::datareport - Форум программистов

ElinaCh

Дата 15.1.2007, 13:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 15.1.2007

Репутация: нет
Всего: нет

Добрый день,

помогите пожалуйста с 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
        '.CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockReadOnly
        .Source = " select * from 16106Without"
        .Open
End With

Set DataReport2.DataSource = rs
[color=red]
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)
[/color]
DataReport2.Show

Set rs = Nothing
Set cn = Nothing

в строчках где обращаюсь к Controls("Text") получаю ошибку
что надо изменить ,помогите

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »