查询多个表 打印在一个报表上？解决办法

查询多个表 打印在一个报表上？


Dim sql As String
sql = "SELECT * from aaa"
Dim rs As New ADODB.Recordset
rs.Open sql, cnn

Adodc1.CommandType = adCmdText
Adodc1.ConnectionString = cnn
Adodc1.RecordSource = sql
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh



Dim sql As String
sql = "SELECT * from bbb"
Dim rs As New ADODB.Recordset
rs.Open sql, cnn

Adodc2.CommandType = adCmdText
Adodc2.ConnectionString = cnn
Adodc2.RecordSource = sql
Set DataGrid2.DataSource = Adodc2
Adodc2.Refresh

......


这样的查询 会有很多表，我想打印的时候显示在一个报表上！用报表设计器如何实现 或者用其他的方法？？

最好能贴出代码？

[解决办法]

VB code

'主要是SQL的查询组合sql=" select * from aaa,bbb where aaa.id=bbb.id "
[解决办法]
sql=" select 字段1,字段2 from aaa union select 字段1,字段2 from bbb"
DataReport1.DataSource = sql
[解决办法]
注意 union 或union all 的表字段数量要相同