最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
在.NET环境下将报表导出EXCEL和WORD lihonggen0（原作）
时间：2022-07-02 11:30:49 编辑：袖梨 来源：一聚教程网
在.NET环境下将报表导出EXCEL和WORD lihonggen0（原作）
在VB6开发环境下，本人使用EXCEL作过报表，在.NET环境下开发，本人使用水晶报表。但VB.NET同样可以将报表导出到EXCEL和WORD进行输出，制作出专业水平的报表。
具体操作如下：(注：首先需添加引用，选择COM-->选择Microsoft Word 10.0 Object Library和Microsoft Excel 10.0 Object Library组件)
1．先创建一个DataTable，作为数据来源，也可以另将其它的数据源。
Private Function CreaTable() As DataTable
Dim dt As New DataTable()
dt.Columns.Add("列1", GetType(String))
dt.Columns.Add("列2", GetType(Integer))
dt.Columns.Add("列3", GetType(String))
dt.Columns.Add("列4", GetType(String))
Dim row, row1 As DataRow
row = dt.NewRow()
row!列1 = "行1"
row!列2 = 1
row!列3 = "d"
row!列4 = "a"
dt.Rows.Add(row)
row1 = dt.NewRow()
在VB6开发环境下，本人使用EXCEL作过报表，在.NET环境下开发，本人使用水晶报表。但VB.NET同样可以将报表导出到EXCEL和WORD进行输出，制作出专业水平的报表。
具体操作如下：(注：首先需添加引用，选择COM-->选择Microsoft Word 10.0 Object Library和Microsoft Excel 10.0 Object Library组件)
1．先创建一个DataTable，作为数据来源，也可以另将其它的数据源。
Private Function CreaTable() As DataTable
Dim dt As New DataTable()
dt.Columns.Add("列1", GetType(String))
dt.Columns.Add("列2", GetType(Integer))
dt.Columns.Add("列3", GetType(String))
dt.Columns.Add("列4", GetType(String))
Dim row, row1 As DataRow
row = dt.NewRow()
row!列1 = "行1"
row!列2 = 1
row!列3 = "d"
row!列4 = "a"
dt.Rows.Add(row)
row1 = dt.NewRow()
相关文章
- 云星穹铁道权益升级怎么玩 云崩铁权益升级活动介绍 12-03
- 以闪亮之名山中绘梦怎么玩 以闪亮之名滢然花梦套装活动介绍 12-03
- 以闪亮之名绿野梦歌礼包怎么样 以闪亮之名绿野梦歌拍照礼包介绍 12-03
- 光遇12.6有什么更新 光遇12月6日更新内容介绍 12-03
- 伍六七暗影交锋测试资格怎么获得 伍六七暗影交锋内测资格获取方法 12-03
- 无限暖暖晶莹诗集怎么样 12-03