正在学习VB6.0，用datareport设计报表带打印，哪位大哥给个实例瞧瞧啊

'首先运行VB，选择“工程＿引用”命令，引用 Microsoft ActiveX Data Objects 25 Library

'添加一个报表控件DataReport，按要求布置好RptTextBox，日期DTPicker1\ DTPicker2，打印按钮，双击command1按钮添加代码：

Private Sub Command1_Click()

Dim cn As ADODBConnection

Dim rs As ADODBRecordset

Dim Sql As String

'连接数据库(Access)

Set cn = New ADODBConnection

cnOpen "Provider=MicrosoftJetOLEDB40;Data Source=" + AppPath & "\slw2000mdb" + ";Persist Security Info=False"

'打开记录集( 根据日期查询 )

Set rs = New ADODBRecordset

Sql = "select 产品代号,原料名,重量,日期,内部码,外部码 from 配料记录 " & _

"where 日期 between #" & Format(DTPicker1, "yyyy-mm-dd") & "# and #" & Format(DTPicker2, "yyyy-mm-dd") & "#"

rsOpen Sql, cn, adOpenKeyset, adLockOptimistic

'设置text控件属性

DataReport1Sections("Section1 ")Controls("RptTextBox1 ")DataField = 产品代号

DataReport1Sections("Section1 ")Controls("RptTextBox2 ")DataField = 原料名

DataReport1Sections("Section1 ")Controls("RptTextBox3 ")DataField = 重量

DataReport1Sections("Section1 ")Controls("RptTextBox4 ")DataField = 日期

DataReport1Sections("Section1 ")Controls("RptTextBox5 ")DataField = 内部码

DataReport1Sections("Section1 ")Controls("RptTextBox6 ")DataField = 外部码

Set DataReport1DataSource = rs

End Sub

Private Sub Form_Load()

DTPicker1Value = Date

DTPicker2Value = Date

End Sub

这代码很简单呀就是先定义一个选择屏幕500，选择屏幕上面定义了一个单值的输入字段p_carr，然后调用显示选择屏幕500你不明白的可能是PARAMETERS p_carr LIKE (name)这个语句吧？（name）意思是用name这个变量的值因为在call屏幕之前有一个赋值语句name = 'SPFLI-CARRID'所以实际上PARAMETERS p_carr LIKE (name)在上面赋值语句的条件下就相当于这个语句PARAMETERS p_carr LIKE spfli-carrid这么说不知道你明不明白？你可以改变赋值语句name的值再试试，比如说name = 'spfli-connid',那就相当于PARAMETERS p_carr LIKE spfli-connid运行后看字段长度或者F4都能看到效果。

以上就是关于正在学习VB6.0，用datareport设计报表带打印，哪位大哥给个实例瞧瞧啊全部的内容，包括:正在学习VB6.0，用datareport设计报表带打印，哪位大哥给个实例瞧瞧啊、谁能给我详细解释一下这段abap report代码、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！