
中的多条记录,两个表通过一个字段关联起来,这种报表可利用其分组功能实现,
1. 新建一个工程
2. 往FORM1中添加一个CrystalReportViewer控件
3. 在服务噐资源管理器中连接到SQL SERVER 2000上的Northwind数据库
4. 添加一个数据集Dataset1,将服务器资源管理器中的Orders和 Order Details加入到数据集中。
5. 添加一个水晶报表,使用报表专家,在项目数据中选择“ADO.NET数据集”,插入表Orders和 Order
Details,“链接”中是关联字段的链接,在“字段”中选择要显示的主表和明细表的字段,组中选择分组依据为
Orders表OrdersID字段,总计,图表,选择(可进行筛选),样式(可设置报表标题),可自行设置。设置完后,
点击完成。
6. 在报表设计器中调整需要显示的字段的位置、宽度等。
7. 在窗口中添加代码。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Dim oRpt As New CrystalReport1()
Dim dsdataSet As New Dataset1()
Dim CN As New Data.SqlClient.SqlConnection("data source=PMSERVERinitial
catalog=Northwinduser id=sapassword=sa")
CN.Open()
Dim daOrders As New Data.SqlClient.SqlDataAdapter("select * from orders", CN)
daOrders.Fill(dsdataSet, "orders")
Dim daDetails As New Data.SqlClient.SqlDataAdapter("select * from [Order Details]", CN)
daDetails.Fill(dsdataSet, "Order Details")
'使用“报表引擎”对象模型将填充的数据集,传递给报表
oRpt.SetDataSource(dsdataSet)
CrystalReportViewer1.ReportSource = oRpt
End Sub
形如上述情况,在查询语句中加上条件orderID='....',查出来是不会出现多页的,即使不加上条件也不会出现 上述描述的那样。
this.ReportViewer1.Visible = true//这里是放参数,报表的参数,没有就不要这些
ReportParameter[] reportparams = new ReportParameter[2]
reportparams[0] = new ReportParameter("areaid", ucQueryCondition1.GetAreaId())这里是放参数,报表的参数,没有就不要这些
reportparams[1] = new ReportParameter("noteid", ucQueryCondition1.GetNoteId())
this.ReportViewer1.ServerReport.SetParameters(reportparams)
然后给报表控件+ reportpath就可以了
虽然您明说了不要第三方控件,但还是要忍不住向您推荐一个!名叫Grid++Report,支持多种编程语言!支持Web、WinForm!例子代码基本直接复制就用!现在的版本是5.8,打印只是预览时才有免费水印,不影响打印。
PS:用了她3年,就当为她做个广告!
另外,对于Excel,公司协议不能直接给您上代码,但编程经验可以分享下:
通过在Excel中定义 *** 作参数,例如"@@cName"表示“单据头某单元格的值”应该替换为表头上"cName"列的值!$$HeadBegin、$$RowBegin表示单据头、单据体的开始区域等,这样的Excel套打也不难做。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)