求助：通过两个报表关联查询后，如何输出到VB报表？

Question

求助：通过两个报表关联查询后，如何输出到VB报表？
查询能成功。但不能输出报表打印，请朋友帮忙，多谢!我的详细例子下载： http://61.177.65.167/hongjian/Ado-prin.rar
语句：
sql = "select 来文登记.序号 as 序号1,来文登记.年份 as 年份1,来文登记.标题内容 as 标题内容1,明收分发表.序号 as 序号2,明收分发表.年份 as 年份2,明收分发表.发给单位 as 主办单位 from 来文登记,明收分发表  where 来文登记.序号=明收分发表.序号 and 来文登记.序号='" & m & "' and 来文登记.年份=明收分发表.年份"If DoSql(str, False) = True Then
Adodc4.ConnectionString = constr
Adodc4.CommandType = adCmdText
Adodc4.RecordSource = sql
Set DataGrid4.DataSource = Adodc4
DataGrid4.RefreshEnd If
Set DataReport2.DataSource = Adodc4
DataReport2.Sections("Section6").Controls("Text1").DataField = "序号1"
DataReport2.Sections("Section6").Controls("Text2").DataField = "标题内容1"
DataReport2.Sections("Section6").Controls("Text3").DataField = "年份1"DataReport2.Sections("Section1").Controls("Text4").DataField = "主办单位"
DataReport2.Sections("Section1").Controls("Text5").DataField = "序号2"
DataReport2.Sections("Section1").Controls("Text6").DataField = "年份2"
 
DataReport2.Show
不能输出？为何？
联系：
qhj
[email protected]
http://hongjian.126.com万分多谢!

Answer 1

这样建立视图后，报表还是提示数据不符!为何？sql = " Create view qhj as select   来文登记.序号 as 序号1,来文登记.年份 as 年份1,来文登记.标题内容 as 标题内容1,明收分发表.序号 as 序号2,明收分发表.年份 as 年份2,明收分发表.发给单位 as 主办单位   from 来文登记,明收分发表  where 来文登记.序号=明收分发表.序号 and 来文登记.序号='" & m & "' and 来文登记.年份=明收分发表.年份"
If DoSql(str, False) = True Then
Adodc4.ConnectionString = constr
Adodc4.CommandType = adCmdText
Adodc4.RecordSource = sql
Set DataGrid4.DataSource = Adodc4
DataGrid4.Refresh
End IfSet DataReport2.DataSource = Adodc4
DataReport2.Sections("Section6").Controls("Text1").DataField = "序号1"
DataReport2.Sections("Section6").Controls("Text2").DataField = "标题内容1"
DataReport2.Sections("Section6").Controls("Text3").DataField = "年份1"DataReport2.Sections("Section1").Controls("Text4").DataField = "主办单位"
DataReport2.Sections("Section1").Controls("Text5").DataField = "序号2"
DataReport2.Sections("Section1").Controls("Text6").DataField = "年份2"
 
DataReport2.Show能否根据本例子，找出原因？多谢!

Answer 2

真心希望朋友的帮忙：多谢!
求助：通过两个报表关联查询后，如何输出到VB报表？
查询能成功。但不能输出报表打印，请朋友帮忙，多谢!我的详细例子下载： http://61.177.65.167/hongjian/Ado-prin.rar秦红坚 04-02-01