最新下载
热门教程
- 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 10.0 Object Library和Microsoft 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 10.0 Object Library和Microsoft 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()
相关文章
- 纳萨力克之王护盾队怎么配队-纳萨力克之王护盾队配队攻略 09-18
- 七日世界月之预兆异常物有哪些-月之预兆版本新增异常物一览 09-18
- 王者荣耀2024FMVP皮肤是谁的-2024FMVP皮肤介绍 09-18
- 鸣潮赞妮武器选什么-鸣潮赞妮武器推荐 09-18
- 鸣潮赞妮阵容怎么搭配-鸣潮赞妮阵容搭配方法介绍 09-18
- 不朽箴言女娲阵容怎么搭配 女娲阵容搭配推荐 09-18