1,217
社区成员
发帖
与我相关
我的任务
分享"实时错误'9'"下标越界
对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'"
下标越界
但找不出任何有问题的地方，以前写的程序中也是这样写，但没有报此错误，大家有没遇到
过的。
'-----------------------------------------
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'"
下标越界
但找不出任何有问题的地方，以前写的程序中也是这样写，但没有报此错误，大家有没遇到
过的。
...全文
请发表友善的回复…
发表回复
任何风 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
option base 1
cso 2004-10-01
- 打赏
- 举报
下标越界,肯定那个索引不在,仔细看看是哪个变量,注意范围
