调打印时老报错:"下标越界"

Question

.Sections(4).Controls("prndate").Caption = Sys_Datesys_date这个变量是取的是系统日期,就是在打印出来的报表中打一个日期在上面的.但总报上面的错
prndate为一个rptLabel的控件名

Answer 1

检查一下是不是在sections(4)这儿错了
如果是第4段的话，应该用sections(3)的如果不是的话试试把rptlabel改为rpttextrpttext.text=sys_date

Answer 2

测试一下.
dim test as control
for each test in .sections(4).cntrols
  debug.print test.caption
next