关于 DataEnvironment和DataReport 的问题，请大家来看看

Question

Private Sub Command4_Click()
    
   DataEnvironment1.rssql_search.Open "select * from pd  where 名称 like '%" & Text3.Text & "%'"
    
    DG1.DataMember = "sql_search"
    DG1.Refresh
     
    'DataReport1.DataMember = sql_search
    'DataReport1.Show    DataEnvironment1.rssql_search.Close
    
End SubDataEnvironment有一个COMMAND叫sql_search，由于这个COMMAND在这里是自定义的，所以里面的语句我写的是通用的SELECT * FROM PD现在一切正常，DG里能显示程序里自定义的SQL我还想在下面用DataReport1来打印出刚才查询出来的东西，但发现无论怎么做不行是否可以帮我修改两个'后面的东西？另外最后一句DataEnvironment1.rssql_search.Close，我看别人的程序里好象没有，但我不写，第2次查询时就会说不能在打开是操作什么的错误。

Answer 1

会不会用记录集,会的话可以将set DataReport1.dataSource=rs,然后在报表里rptTextBox的属性DataField设为记录集的字段名就可以了

Answer 2

会不会用记录集,会的话可以将set DataReport1.dataSource=rs,然后在报表里rptTextBox的属性DataField设为记录集的字段名就可以了

Answer 3

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 的数据源