datareport报表控件提示 下标越界(老问题+前面有很多人问,可就是没解决)
我的代码如下:pnew.mdb里有10条记录
Option Explicit
Public cnn As New ADODB.Connection
Public rst As New ADODB.Recordset
Private Sub Form_Load()
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\pnew.mdb"
Call rst.Open("select * from biao1", cnn, adOpenDynamic, 2)
Set DataReport1.DataSource = rst
If Not rst.EOF Then
DataReport1.Sections(1).Controls("text1").DataField ="Time"
End if
DataReport1.Show 1
End Sub
可是执行的时候提示DataReport1.Sections(1).Controls("text1").DataField ="Time"
实时错误“9”: 下标越界。
该怎么解决呢?