实例介绍
【实例截图】
【核心代码】
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using CGT_Model; namespace CGT_Report_Demo { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { this.reportViewer1.RefreshReport(); } private void button1_Click(object sender, EventArgs e) { CommandData itemObj = new CommandData(); itemObj.ReportName = "中山一院住院费用分类明细表"; itemObj.ChargeCycle = DateTime.Now.AddDays(-10).ToString("yyy-MM-dd") " 至 " DateTime.Now.ToString("yyy-MM-dd"); itemObj.InPatientNo = "0030872190"; itemObj.PatientName = "张山疯"; itemObj.Departments = "风湿免疫科"; itemObj.ReportDateTime = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss"); List<ItemData> list = new List<ItemData>(); List<string> listTypeKey = new List<string>(); List<string> listSubTypeKey = new List<string>(); for (int i = 1; i < 100; i ) { if (!listTypeKey.Contains("第" ((i % 11) 1).ToString().PadLeft(2, '0') "类药品")) { listTypeKey.Add("第" ((i % 11) 1).ToString().PadLeft(2, '0') "类药品"); ItemData item = new ItemData(); item.ItemType = "第" ((i % 11) 1).ToString().PadLeft(2, '0') "类药品"; item.ItemSubType = ""; item.ItemCode = "第" ((i % 11) 1).ToString().PadLeft(2, '0') "类药品"; item.ItemName = ""; item.ItemNum = 0; item.ItemPrice = 0; item.ItemTotleAmt = 0; item.ItemUnit = ""; item.SelfPay = 0; item.PublicPay = 0; item.Remark = ""; item.ItemShow = false; item.Index = i.ToString().PadLeft(4, '0'); list.Add(item); } if (!listSubTypeKey.Contains("第" ((i % 11) 1).ToString().PadLeft(2, '0') "类药品" "第" ((i % 5) 1) "分项")) { listSubTypeKey.Add("第" ((i % 11) 1).ToString().PadLeft(2, '0') "类药品" "第" ((i % 5) 1) "分项"); if (((i % 5) 1) != 2 && ((i % 5) 1) != 2) { ItemData itemSub = new ItemData(); itemSub.ItemType = "第" ((i % 11) 1).ToString().PadLeft(2, '0') "类药品"; itemSub.ItemSubType = "第" ((i % 5) 1) "分项"; itemSub.ItemCode = "第" ((i % 5) 1) "分项"; itemSub.ItemName = ""; itemSub.ItemNum = 0; itemSub.ItemPrice = 0; itemSub.ItemTotleAmt = 0; itemSub.ItemUnit = ""; itemSub.SelfPay = 0; itemSub.PublicPay = 0; itemSub.Remark = ""; itemSub.ItemShow = false; itemSub.Index = "1" i.ToString().PadLeft(3, '0'); list.Add(itemSub); } } ItemData items = new ItemData(); items.ItemType = "第" ((i % 11) 1).ToString().PadLeft(2, '0') "类药品"; items.ItemSubType = "第" ((i % 5) 1) "分项"; items.ItemCode = "20200511-" i.ToString().PadLeft(3, '0'); items.ItemName = items.ItemType "" i.ToString().PadLeft(3, '0') "号"; items.ItemNum = i; items.ItemPrice = decimal.Parse((((i % 8) 1) * 1.82).ToString()); items.ItemTotleAmt = items.ItemNum * items.ItemPrice; items.ItemUnit = "盒"; items.SelfPay = decimal.Parse((((i % 8) 1) * 1.82).ToString()) - decimal.Parse((((i % 7) 1) * 0.44).ToString()); items.PublicPay = items.ItemTotleAmt - items.SelfPay; items.Remark = ""; items.ItemShow = true; items.Index = "2" i.ToString().PadLeft(3, '0'); list.Add(items); } //直接显示报表 reportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local; reportViewer1.LocalReport.ReportPath = Environment.CurrentDirectory "\\" "CGT_Report_test.rdlc"; reportViewer1.LocalReport.DataSources.Add(new Microsoft.Reporting.WinForms.ReportDataSource("ItemData", list)); reportViewer1.LocalReport.DataSources.Add(new Microsoft.Reporting.WinForms.ReportDataSource("CommandData", new object[] { itemObj })); this.reportViewer1.RefreshReport(); } } }
标签: RDLC、报表、C#使用RDLC
网友评论
小贴士
感谢您为本站写下的评论,您的评论对其它用户来说具有重要的参考价值,所以请认真填写。
- 类似“顶”、“沙发”之类没有营养的文字,对勤劳贡献的楼主来说是令人沮丧的反馈信息。
- 相信您也不想看到一排文字/表情墙,所以请不要反馈意义不大的重复字符,也请尽量不要纯表情的回复。
- 提问之前请再仔细看一遍楼主的说明,或许是您遗漏了。
- 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦,又没人会搭理,于人于己都无利。
关于好例子网
本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享,对搜索内容的合法性不具有预见性、识别性、控制性,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论平台是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定,若资源存在侵权或相关问题请联系本站客服人员,点此联系我们。关于更多版权及免责申明参见 版权及免责申明
支持(0) 盖楼(回复)
支持(0) 盖楼(回复)