怎么在报表中调用查询的记录集呢？

Question

rs是用SQL查询的记录集
我在报表代码中使用
Label3.Caption = rs.编号为什么不显示编号字段的内容呢？

Answer 1

rpt.Sections("section1").Controls("lblName").Caption = "#$^%&*^&"
DataReport1.Sections("section2").Controls("label1").Caption = "明天公司03年4月工资表"

Answer 2

如果是datareport,要先设置报表数据源：set datareport1.datasource=rs

Answer 3

我已经设置报表数据源了set datareport1.datasource=rs
怎么就是不显示字段内容啊？
Label3.Caption = rs.编号  这个语句对吗？

Answer 4

rpt.Sections("section1").Controls("label3").Caption = rs.编号

Answer 5

Option ExplicitDim adoConnectionX As New ADODB.Connection
Dim adoRecordsetX As New ADODB.RecordsetPrivate Sub DataReport_Initialize()
  'printer.Orientation =
  '以下准备数据源(记录集)
  '要打印的数据源(记录集)必须是一个全局级别的，或者是本设计器模块级别的记录集
  
  '数据库使用的是 Northwind.mdb
  adoConnectionX.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\Northwind.mdb"
  adoRecordsetX.Open "select * from 产品", adoConnectionX
    
  Set DataReport1.DataSource = adoRecordsetX '设置 DataReport 的数据源
  
  '-------------------------------------------------------------------------