新手的报表问题，见着有分

Question

窗体连接数据库如下，获得数据集adoPrimaryRS
Private Sub Form_Load()
Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Task2000.mdb;"
  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "select datafield from table ", db, adOpenStatic, adLockOptimistic
 ------------现在在同一窗体中设置一报表输出按钮，输出单个记录
即如下sql形式
"select datafield from table where datafield='" & Trim(txtFields(0).Text) & "'" 请问如何设置数据集的绑定啊
    Set DataReport1.DataSource = 
        DataReport1.DataMember =End Sub

Answer 1

如果是一条记录，可以：
DataReport1.sections(1).controls("label1").caption=rs(0)
.
.
.
DataReport1.show

Answer 2

如果是多条记录，先画好报表字段，设置text的datafield属性为要绑定的字段，显示时：
Set DataReport1.DataSource =adoPrimaryRS
就可以了

Answer 3

关键是得到的adoprimaryRS是整个表格中的记录，要做的报表是按记录号一条一条输出

Answer 4

Private Sub DataReport_Initialize()
  'printer.Orientation =
  '以下准备数据源(记录集)
  '要打印的数据源(记录集)必须是一个全局级别的，或者是本设计器模块级别的记录集
  
  '数据库使用的是 Northwind.mdb
  adoConnectionX.Open "dsn=sybase;uid=sa;pwd=abcd1234" '"Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\Northwind.mdb"
  adoRecordsetX.Open "select * from STUDENTCARD", adoConnectionX
    
  Set DataReport1.DataSource = adoRecordsetX '设置 DataReport 的数据源
  
  '-------------------------------------------------------------------------
  '以下根据控件所在区域(Sections)和所属控件类别等将它们分成若干集合