| 文章： |
作者：于溪玥（http://playyuer.163.net）
摘要：VB 6.0专业版和企业版中的数据报表设计器与数据环境设计器是数据访问的新内容。MSDN 所提供的Prjnwind.vbp 示例工程在设计阶段（Design Time）就已将DataEnvironment设为DataReport的数据源，并将打印格式也设好，这种做法不太利于程序的通用性。当然，我们也可以对DataEnvironment编程，在运行阶段（Run Time）控制数据源。其实，DataReport可以完全脱离DataEnvironment，而打印由动态SQL生成的Recordset。
链接： vb6rept.zip
另外参考：QA002058 "如何减少DataReport的资源占用"
现在 DataReportPlus 已经进行了重大升级!
请访问:http://microinfo.top263.net http://microinfo.top263.net/DownLoad.htm
 郑茂强的意见：
这是我脱离DataEnvironment用代码连接显示文件的内容:
Private Sub DataReport_Initialize()
Dim AdoCon As New ADODB.Connection
Dim AdoRec As New ADODB.Recordset
Dim txt As New Collection
Dim ctl As Object
AdoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\a.mdb;Persist Security Info=False"
AdoRec.Open "select * from a", AdoCon
Set DataReport1.DataSource = AdoRec
For Each ctl In Me.Sections.Item("Section1").Controls
If TypeName(ctl) = "RptTextBox" Then
Select Case ctl.Name
Case "Text1"
ctl.DataField = AdoRec.Fields("aa").Name
Case "Text2"
ctl.DataField = AdoRec.Fields("bb").Name
Case "Text3"
ctl.DataField = AdoRec.Fields("cc").Name
End Select
End If
Next
End Sub
文章来源：中国计算机报。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, 打印与报表, print, report crystal report, active report。
|
VB 6之数据报表使用技巧