|
Объясните кто нибудь смысл следующего кода, я его вставил, он работает, но почему , не пойму? Private Sub CreateReport()
Dim rpt As New rptTemplate
Dim ctl As Object
' Create an ADO Data data source control
With rpt.Sections("Detail").Controls
Set ctl = .Add("DDActiveReports2.DataControl")
End With ctl.Provider = "MSDASQL"
ctl.ConnectionString = "driver={SQL Server};" & _
"Server=local;uid=sa;pwd=;database=pubs"
ctl.Source = "SELECT * FROM RoySched"
ctl.ConnectionTimeOut = 20
ctl.CommandTimeout = 20
ctl.MaxRows = 20
ctl.LockType = 0 ' ReadOnly ' Create Additional Controls
' …
' Run and Preview the report output
rpt.Show
End Sub В частности строки Dim ctl As Object и Set ctl = .Add("DDActiveReports2.DataControl")?????????????
Ответить
|
SHDZ | ICQ: 209382104