用VB自带的报表设计器设计报表，如何将两个无关的表输出到同一报表上

Question

用VB自带的报表设计器设计报表，如何将两个无关的表输出到同一报表上

Answer 1

没关系怎么输出啊!!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 tablename1 left join tablename2 on tablename1.id=tablename2.id", adoConnectionX
    
  Set DataReport1.DataSource = adoRecordsetX '设置 DataReport 的数据源
End Sub

Answer 2

用VB自带的报表设计器(DataReport)设计报表，不支持将两个无关的表输出到同一报表上 ！本人想了一个变通的法子：定义一个临时表，它包含两个无关表的所有字段，先将数据传到临时表中，再临时表输出到报表上！此方法虽然解决了以上问题，但是总觉得不太好！
敬请高手指点！

Answer 3

只要你的SQL运用适当连接几个表很轻松啊