给我一些关于datareport+dataEnvironment用法的资料。谢！给分了。

Question

我这个不会用呀。
我有时可以打印一个表的内容，但如果按条件打印。如果打印相关联的几个表中的部分数据，等，什么都不会，今天我一天就没做什么。我刚学VB所以不会呀。
希望大家帮帮个忙吧。我急死了！！！

Answer 1

Private Sub cmdprint_Click()
On Error GoTo printerr
If imgbread.Tag = "" Then MsgBox "请按查询键后再进行报表打印或查询数据！", 48, "系统提示": Exit Sub
 If DataEnvironment1.rsCommand1.State <> adstateclose Then DataEnvironment1.rsCommand1.Close
  If DataCombo1(0).Text <> "" Then drsell.Sections(1).Controls.Item("lblname").Caption = "货物名称"
   If DataCombo1(1).Text <> "" Then drsell.Sections(1).Controls.Item("lbltype").Caption = "类型"
    If DataCombo1(2).Text <> "" Then drsell.Sections(1).Controls.Item("lblreceiver").Caption = "收货单位名称"
     If DataCombo1(3).Text <> "" Then drsell.Sections(1).Controls.Item("lblowe").Caption = "欠款情况"
'drsell.Sections(1).Controls.Item("lblcondition").Caption = frmsell.DataCombo1(0) & "、" & frmsell.DataCombo1(1) & "、" & frmsell.DataCombo1(2) & "、" & frmsell.DataCombo1(3)
drsell.Sections(1).Controls.Item("lbldatestart").Caption = frmsell.dtpstart.Value
drsell.Sections(1).Controls.Item("lbldateend").Caption = frmsell.dtpend.Value
DataEnvironment1.Commands(1).CommandText = strsql '你要的关键是这里的一句
imgbread.Tag = ""
drsell.Refresh
'drsell.Show vbModal
If DataEnvironment1.rsCommand1.State <> adstateclose Then DataEnvironment1.rsCommand1.Close
drsell.Refresh
drsell.Show vbModal
Exit Sub
printerr:
MsgBox "打印机设置的纸张宽度小于报表，请重新设置打印机纸张！", 48, "系统出错"
End Sub

Answer 2

注：别人的。
我不是VB熟练工，最近刚刚用VB做完一个程序，其中控制部分没费太大周折，倒是报表部分颇让我费了一翻脑筋。在网上找了半天，也没找到关于VB6的 DataReport的详细介绍，于是想借鉴"前辈"们的经验，用CrystalReport或EXCEL，感觉也不省劲，于是决定回头再去"啃"DataReport，别说，还真让有所收获，下面就简单的介绍一下我的体会，希望对大家能有所帮助。　　首先介绍一下DataReport对象的几个常用属性。一是DataSource，用于设置一个数据源，通过该数据源，数据使用者被绑定到一个数据库；二是DataMember，从DataSource提供的几个数据成员中设置一个特定的数据成员；三是LeftMargin、RightMargin、TopMargin、BottomMargin等，用于指定报表的左右上下的页边距；四是Sections，即DataReport的报表标头、页标头、细节、页脚注、报表脚注5个区域，如果加上分组(可以有多层分组)，则增加一对区域，即分组标头、分组脚注。其中DataSource一般是一个数据环境或是ADODB.Connection类型的变量，而DataMember则对应数据环境中的Command或是ADODB.RecordSet类型的变量，推荐使用数据环境及Command，页边界大家肯定都很清楚，下面我主要介绍以下Sections，这也是DataReport的精髓所在。　　Sections是一个集合，您可以为每一个Section指定名称，也可以用其缺省的索引，从上到下依次为1、2…。每个Section均有Height和Visible属性，您可以在一定条件下使一个Section不可见。在Section中可以放置各种报表控件，其中RptLabel、RptImage、RptShape和RptLine可以放在任意的Section中，用于输出各种文字、图形及表格线；RptTextBox只能放在细节中，一般用于绑定输出DataMemeber提供的数据字段；RptFunction只能被放置在分组注脚中,用于输出使用各种内置函数计算出的合计、最大值、最小值、平均值、记数等等。上述报表控件中常用公共属性有用于控制位置及高度宽度的Top、Left、Height、Width和控制可见性的Visible；其中RptTextBox还有DataField、DataMember、DataFormat及Font属性；其他属性不再多说。　　然后介绍一下我的使用经验。一是对想控制的报表控件按类型有规律的命名；二是用RptShape的矩形框做表格线框，比用RptLine画框省事多了，只有斜线才使用RptLine；三是报表标题及报表中的表头文字、日期及页码用RptLabel，其中Caption属性支持转义字符，%D为长格式日期，%d为短格式日期，%P为总页数，%p为当前页码；四是对固定报表在设计窗口直接将报表控件摆放到位，对于活报表，应首先考虑报表最大的情形，将足够的控件分别放置在不同区域，位置大小可以不必深究，然后在报表输出前用VBA代码对所有控件的属性进行调整，包括位置、高度、宽度、字体、对齐方式、显示格式、可见性等等，相应的对Section也应根据情况调整其高度和可见性。
 
最后用一个实例模板来说明其使用方法。　　连接数据库With 数据环境.rsCommand名
If .State = adStateOpen Then .Close
.Source = SQL语句 
.Open 打开想输出的数据库数据项以便输出
End With
With 报表名
　.DataSource=数据环境
　.DataMember=Command名 这两行也可固定设好而不必每次设置
　设置页表头部分(RpttLabel…为报表控件名)
　.Sections(2).Controls("RptLabelPage").Caption = "共%P页第%p页"
　.Sections(2).Controls("RptLabelDate").Caption = "打印日期：%D"
　.Sections(3).Controls("RptLabel1").Left=…
　…
　设置细节部分(RptShapeX、RptTextBoxX为报表控件名)
　.Sections(3).Controls("RptShape1").Left=…
　.Sections(3).Controls("RptShape1").Top=…
　.Sections(3).Controls("RptShape1").Height=…
　.Sections(3).Controls("RptShape1").Width=…
　.Sections(3).Controls("RptTextBox1").DataMember=Command名
　.Sections(3).Controls("RptTextBox1").DataField=字段1
　.Sections(3).Controls("RptTextBox1").Font.Name=…
　…
　.Sections(3).Controls("RptShapeN").Visible=False
　.Sections(3).Controls("RptTextBoxN").Visible=False
　…
　. Sections(3).Height=计算出的或固定的细节高度
动态调整报表标题(RptLabelTitle为报表标签控件名)
　.Sections(2). Controls("RptLabelTitle").Left=…
　…
　.Sections(2). Controls("RptLabelTitle").Alignment=…
　…
　调整完毕后
　.Show 或 .PrintReport
End With
 　　这样做的优点是报表设计时简单，调整方便、随意，只需更改一点代码，而不必为了一点点的修改而费神的在设计窗口调整半天。

Answer 3

diyee(锦衣夜行)写的不错,但我刚才试了试,还有点问题
环境:SQL SERVER 2000+VB6.0
我的环境设计器结构如下:
DEConnection    ---设计器名称
   ReportConn
     cmdTotalImportCommOrder
在打印事件中代码:
    With DEConnection.rscmdTotalImportCommOrder
        If .State = adStateOpen Then
            .Close
        End If
        .ActiveConnection = adoConn
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockBatchOptimistic
        .Source = "SELECT RQ,JE1 FROM DJHDD " & Q_Condition
        .Open
    End With
    With DRTotalImportCommOrder
        .DataSource = DEConnection      '此处发生错误,告诉我未找到方法或者是数据成员,为什么?
        .DataMember = DEConnection.rscmdTotalImportCommOrder
    End With
运行出错?

Answer 4

datareport做报表：http://www.yesky.com/20020108/213121.shtml
http://www.cx66.com/cxgzs/program/vb/810.htm
http://www.microsoft.com/china/msdn/technic/develop/vb/0125h.asp
http://www.ahetc.gov.cn/cit/200101/14.doc
http://jinjohn.myrice.com/program/vb/database/data0011.htm

Answer 5

E:\Program Files\Microsoft Visual Studio\MSDN\2000JUL\1033\SAMPLES\VB98\DataRept
E:\Program Files\Microsoft Visual Studio\MSDN\2000JUL\1033\SAMPLES\VB98\AdoLoan

Answer 6

to: hlding(淋东) 
根本就不是他写的，这篇文章我早就看过了！

Answer 7

回：
With DRTotalImportCommOrder
        .DataSource = DEConnection      '此处发生错误,告诉我未找到方法或者是数据成员,为什么?
        .DataMember = DEConnection.rscmdTotalImportCommOrder
    End With我也发生这个错误，这两句不要好像不要紧，你在datareport里面直接设置就可以了，我另外添加了一句.refresh(好像也可以不需要)。

Answer 8

'On Error Resume Next
Dim tRec As New ADODB.Recordset
If cn.State = 0 Then cn.Open cnstr
If DataEnv.Connection1.State = 0 Then DataEnv.Connection1.Open cnstr'传参供应商,客户资料以及订单号码和发票号码,数量金额合计
DataEnv.Commands.Item("bjmx").CommandText = "select * from khbjmx where wysb='" & Trim(wysb.Text) & "' order by AutoID"
DataEnv.Commands.Item("bjmx").Execute
'DataEnv.Connection1.ConnectionString = cnstr
'显示报价明细资料
If DataEnv.rsbjmx.State = 0 Then DataEnv.rsbjmx.Open
End If
DataEnv.rsbjmx.Requery
rptBjmx.Sections.Item("ReportHeader").Controls.Item("orderno").Caption = orderno.Text
rptBjmx.Sections.Item("ReportHeader").Controls.Item("invoice").Caption = invoice.Text
rptBjmx.Sections.Item("ReportHeader").Controls.Item("gysname").Caption = gysname.Text
rptBjmx.Sections.Item("ReportHeader").Controls.Item("clientname").Caption = clientname.Text
rptBjmx.Sections.Item("ReportHeader").Controls.Item("moddate").Caption = moddate.Text
rptBjmx.Sections.Item("ReportHeader").Controls.Item("memo").Caption = memo.Text
rptBjmx.Sections.Item("ReportFooter").Controls.Item("sendtotal").Caption = FormatNumber(CSng(sendtotal.Text), 2)
rptBjmx.Sections.Item("ReportFooter").Controls.Item("ratio").Caption = ratio.Text
rptBjmx.Sections.Item("ReportFooter").Controls.Item("paymethod").Caption = paymethod.Text
rptBjmx.Sections.Item("ReportFooter").Controls.Item("newPrice").Caption = FormatNumber(CSng(total.Text) * CSng(ratio.Text) / 100, 2) '折扣价
rptBjmx.Sections.Item("ReportFooter").Controls.Item("Caltotal").Caption = FormatNumber(CSng(total.Text) * CSng(ratio.Text) / 100 + CSng(sendtotal.Text), 2) '实际合计'取供应商资料
  If tRec.State = 1 Then tRec.Close
  tRec.Open "select * from gyszlb where clientcode='" & gyscode.Text & "'", cn, 1, 1
  If Not tRec.BOF And Not tRec.EOF Then
  rptBjmx.Sections.Item("ReportHeader").Controls.Item("gphone").Caption = "Phone:" & tRec("phone") & ""
  rptBjmx.Sections.Item("ReportHeader").Controls.Item("gaddr").Caption = "Addr:" & tRec("addr") & ""
  rptBjmx.Sections.Item("ReportHeader").Controls.Item("gFax").Caption = "Fax:" & tRec("fax") & ""
  End If
  tRec.Close
'取客户资料
tRec.Open "select * from khzlb where clientcode='" & Trim(clientcode.Text) & "'", cn, 1, 1
  If Not tRec.BOF And Not tRec.EOF Then
  rptBjmx.Sections.Item("ReportHeader").Controls.Item("addr").Caption = tRec("addr") & ""
  rptBjmx.Sections.Item("ReportHeader").Controls.Item("city").Caption = tRec("city") & ""
  rptBjmx.Sections.Item("ReportHeader").Controls.Item("state").Caption = tRec("state") & ""
  rptBjmx.Sections.Item("ReportHeader").Controls.Item("phone").Caption = tRec("phone") & ""
  rptBjmx.Sections.Item("ReportHeader").Controls.Item("zip").Caption = tRec("zip") & ""
    End If
  tRec.CloserptBjmx.Refresh
rptBjmx.Show
If DataEnv.rsbjmx.State = 1 Then DataEnv.rsbjmx.Close

Answer 9

我要在明细资料里面显示一个序号，序号资料不是recordset来的。怎么做？