实例介绍
【实例截图】
【核心代码】
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) 盖楼(回复)