"实时错误'9'"下标越界

任何风 2004-10-01 09:07:42
对DATAREPORT报表一些标签赋值,如下

'-----------------------------------------
With prn清单
.Orientation = 2
Set .DataSource = adoPrimaryRS
.Sections(4).Controls("Label15").Caption = Format(Date, "Long

Date")
.Sections(4).Controls("Label16").Caption = Sum_str
If Chk.Value = 0 Then
.PrintReport
Else
.Show 1
End If
End With
'===========================================

老是报错
"实时错误'9'"
下标越界
但找不出任何有问题的地方,以前写的程序中也是这样写,但没有报此错误,大家有没遇到

过的。


...全文
93 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
任何风 2004-10-02
DATAREPORT有时总这样,而且在其内的RPTLABLE控件是没有索引值的,不像在窗体中的各种控件有INDEX值,它们每个控件名都不可能会一样的,增加一个的新的DATAREPORT,就只在Sections(4)中加一个RPTLABLE,然后在程序中对其内容进行赋值,但同样报这个错的,整张报表就只有这一个控件无素的情况
回复
任何风 2004-10-02
已解决了,只是将标签换到Sections(2)下了.
回复
莫情莫钱 2004-10-01
起始下标是多少
得搞清楚哦
像楼上说的
要不然会益处的
回复
helanshan 2004-10-01
窗体声明部分加上一句:
option base 1
回复
cso 2004-10-01
下标越界,肯定那个索引不在,仔细看看是哪个变量,注意范围
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告