7,763
社区成员
发帖
与我相关
我的任务
分享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”： 下标越界。
该怎么解决呢？
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”： 下标越界。
该怎么解决呢？
...全文
请发表友善的回复…
发表回复
zhongminsheng 2003-10-17
- 打赏
- 举报
应该是"text1"的问题
或是
Sections(1)中的1的问题
或是
Sections(1)中的1的问题
SuperZhou 2003-10-17
- 打赏
- 举报
看看是否存在“Time”字段
qflash 2003-10-16
- 打赏
- 举报
我想揭贴，可没法给分啊。
qflash 2003-10-16
- 打赏
- 举报
OK 了。
qflash 2003-10-16
- 打赏
- 举报
没有高手吗
