将这句话提到添加项目前:Set DataReport1.DataSource = adoPrimaryRS
正确代码是:
Set DataReport1.DataSource = adoPrimaryRSDo While Not adoPrimaryRS.EOFDataReport1.Sections("section1").Controls.Item("label1").Caption = "1234"
DataReport1.Sections("section1").Controls.Item("host_nme").DataField = adoPrimaryRS.Fields.Item("host_nme").Name
adoPrimaryRS.MoveNext
Loop
正确代码是:
Set DataReport1.DataSource = adoPrimaryRSDo While Not adoPrimaryRS.EOFDataReport1.Sections("section1").Controls.Item("label1").Caption = "1234"
DataReport1.Sections("section1").Controls.Item("host_nme").DataField = adoPrimaryRS.Fields.Item("host_nme").Name
adoPrimaryRS.MoveNext
Loop
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货