一个报表打印的错误提示?

Question

DataReport1.Sections(4).Controls("label1").Caption = Txtitem(0).Text & ""DataReport1.Sections(4).Controls("Label2").Caption = "女"
在报表打印进行到以上两句时候,总提示"实时错误9,下标越界",不知道是何原因,望高手指点,谢谢.

Answer 1

這個是不是錯了,"Sections(4)",數量不夠多.

Answer 2

//DataReport1.Sections(4).Controls("label1").Caption = Txtitem(0).Text & ""
//DataReport1.Sections(4).Controls("Label2").Caption = "女"
一般出现这个错误,都是一个对象集的序数错误,根据楼主提供的代码,可以判断应该是Sections集合错误,Sections是报表区域的对象集合,从上往下数(不要看区域上的标签提示,那个序号不对),一般第一个
是报表标头.

Answer 3

Sections(4)有问题
改为Sections(1)试试不行再改(2).(3).(5)
DataReport1.Sections(1).Controls("Label2").Caption = "女"