不信没有人会解决这个问题。。。。

[wangzai29]

现在 我 把 我的数据源 全部放到了 ACCESS 表里面了， 现在我想用水晶报表 直接取 表里面的数据，注 ，里面需要取数的表 可能有几个，不同的表 在 水晶报表中的分别用子报表显示出来， 我根 怎么做



oRpt.Database.Tables(i).SetDataSource rs1 不希望直接在 程序中用 SET赋值， 因为涉及的数据源太多了。

[wangzai29]

Dim i As Integer
For i = 1 To oRpt.Database.Tables.COUNT
oRpt.Database.Tables(i).ConnectionProperties.DeleteAll
'oRpt.Database.Tables.Item(i).ConnectBufferString = conn1.ConnectionString '让水晶报表登陆数据库

'oRpt.Database.Tables(i).SetDataSource rs1 '
oRpt.Database.Tables.Item(i).ConnectBufferString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\jsld.dll;Persist Security Info=False"
oRpt.Database.Tables(i).SetDataSource oRpt.Database.Tables(i).Name
Next i


'oRpt.ReadRecords
CRViewer91.ReportSource = oRpt '启用水晶报表的预览功能
CRViewer91.ViewReport


好像这样做不行。。。。。那个帮我指点一下。。。。。VB6.0

[wangzai29]

还真没有人能 解决吗 ？

[wangzai29]

还真没有人能 解决吗 ？

[SeeSunSet]

你只要明白报表数据源是用DATASET绑定就好了.前台程序涉及几张表就做几个DATASET,然后分别绑定给你的报表和子报表就行了.我曾经做一个报表有一个主表,7个子报表的.