|
|
|
новичок
участник
Last Login: 19.04.2007 15:32
Сообщ.: 7,
Visits: 73
|
|
Добрый день,
помогите пожалуйста с 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").DataFiel d = rs.Fields(0)
Set DataReport2.Sections(1).Controls("Text2").DataFiel d = rs.Fields(1)
Set DataReport2.Sections(1).Controls("Text3").DataFiel d = rs.Fields(2)
DataReport2.Show
Set rs = Nothing
Set cn = Nothing
в строчках где обращаюсь к Controls("Text") получаю ошибку
что надо изменить ,помогите
|
|
|
|