关于报表设计器的问题！

[developer25]

请问在VB5中有个Crystal Reports程序，怎么在VB6中没有了？

我现在想设计一个报表，在工程中添加了报表窗体，但是窗体的数据源和数据项怎么写？

数据库怎么和报表连接？如果用代码请告之。

谢谢各位！！！！

[tulip_hui]

关注

[NFDSOFT]

建议使用activereport 2.0

[Pipi0714]

dim db as new adodb.connection
dim rst as new adodb.recordset
此时建立你想要的连接，然后建立你rst
set report.datasource=rst
report.show 1 (report为报表设计器）
再报表窗体上你可以用label,text等等空间任意画注意text要指明是那个字段

[wuzhu]

On Error Resume Next
' 打印报表
With dtaRpt
Set dtaRpt.DataSource = TestRs
.Sections("section1").Controls.Item("Text1").DataField = TestRs.Fields(0).Name
.Sections("section1").Controls.Item("Text2").DataField = TestRs.Fields(1).Name
.Sections("section1").Controls.Item("Text3").DataField = TestRs.Fields(2).Name
.Sections("section1").Controls.Item("Text4").DataField = TestRs.Fields(3).Name
.Sections("section1").Controls.Item("Text5").DataField = TestRs.Fields(0).Name
.Show
End With