怎样用datareport有条件地选择显示的报表

[ithc]

怎样用datareport有条件地选择显示的报表

[playyuer]

http://www.playyuer.com 提供
《vb 6之数据报表使用技巧》
http://media.ccidnet.com/media/ciw/871/b1301.htm
《VB6之Data Report全面解决方案(1)》
http://microinfo.top263.net/Txt/DRptPlus.txt
《巧用 VB6 之 Data Report 实现图片(Picture)、图表(MsChart)的打印及预览》
http://microinfo.top263.net/Txt/ImageRpt.txt
下载例程
http://microinfo.top263.net/Zip/DatGrdRpt.zip
http://microinfo.top263.net/Zip/ImageRpt.exe
http://microinfo.top263.net/Zip/FmtDatRpt.zip
http://microinfo.top263.net/Zip/ShapeTree.zip
http://microinfo.top263.net/Zip/ShapeNew.zip



另外http://www.playyuer.com 提供
Microsoft Visual Basic 6.0 之
Data Report Designer 的
ActiveX Dll 打印全面解决方案 - DataReportPlus 下载:
http://microinfo.top263.net/DownLoad.htm

[suinx]

给出一个例子：
strSQL = " SHAPE {select user from sale where shopid=" & "'" + ShopID + "'" & " and saledate>=" & "#" & saledate1 & "#" & " and saledate<=" & "#" & saledate2 & "#" & " group by user} AS Command4 APPEND ({select saledate,user,sum(qty*price) as amount from sale where shopid=" & "'" + ShopID + "'" & " and saledate>=" & "#" & saledate1 & "#" & " and saledate<=" & "#" & saledate2 & "#" & " group by saledate,user} AS Command5 RELATE 'user' TO 'user') AS Command5"
DataEnvironment1.Connection4.Open strcnn
DataEnvironment1.rsCommand4.Open strSQL, DataEnvironment1.Connection4

DataReport5.Show vbModal
DataEnvironment1.Connection4.Close

[ithc]

能把教程给我吗[e-mail]