VB NET版机房收费系统---导出Excel表格

画面很美

于 2018-11-12 17:01:45 发布

阅读量405

点赞数

本文链接：https://blog.csdn.net/gfjjggg/article/details/83994751

版权

分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.csdn.net/jiangjunshow

也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！

datagridview，翻译成中文的意思是数据表格显示，使用DataGridView控件，可以显示和编辑来自不同类型的数据源的表格，将数据绑定到DataGridView控件非常简单和直观，大多数情况下，只需要设置DataSource属性即可，在绑定到包含多个列表或表的数据库源时，只需将DataMember属性设置为绑定的列表或表的字符串即可。机房收费系统多次用到数据表格的显示，并且导出为Excel表格，第一次机房收费系统是用VB版本的，她导出Excel的方法如下：

打开VB-工程-应用-勾选Microsoft Excel 14.0 Objexts 2.6 Library

代码如下：

<span style="font-size:18px;">Private Sub CmdExport_Click()      Dim j As Integer      Dim xlApp As Excel.Application      Dim xlBook As Excel.Workbook      Dim xlSheet As Excel.Worksheet      Set xlApp = CreateObject("Excel.Application")   '实例化对象xlApp          xlApp.Visible = True      Set xlBook = xlApp.Workbooks.Add      Set xlSheet = xlBook.Worksheets(1)      For i = 0 To myflexgrid.Rows - 1          For j = 0 To myflexgrid.Cols - 1             myflexgrid.Row = i             myflexgrid.Col = j             xlSheet.Cells(i + 1, j + 1) = Trim(myflexgrid.Text)          Next      Next  End Sub </span>

第二版机房收费系统VB.NET版本，她又怎么样导出Exce表格nie，跟VB版的导出Excel表格的方法有哪些异曲同工之妙，又有着VB不具备的妙处呢？下面一一介绍：

首先，我们需要引用

还有一个细节问题，我们需要把AllowUserToAddRow这个属性改为False，后面详解True和False的区别：

编程代码如下：

<span style="font-size:18px;">Public Function dirivExcel(ByVal dgv As DataGridView) As Boolean        Dim myExcel As New Microsoft.Office.Interop.Excel.Application  '建立Excel连接        myExcel.Application.Workbooks.Add(True)        myExcel.Visible = True        Dim i, j, k As Integer '定义变量        For k = 0 To dgv.ColumnCount - 1     '添加表头            myExcel.Cells(1, k + 1) = dgv.Columns(k).HeaderText        Next k        For i = 0 To dgv.RowCount - 1   '通过循环来添加控件中的数据到表格中            For j = 0 To dgv.ColumnCount - 1                '由于第一行是表头，所以添加数据时就从第二行开始添加                myExcel.Cells(i + 2, j + 1) = dgv(j, i).Value            Next        Next        Return True '添加完毕，返回true    End Function</span>

现在我们来看一下运行结果：

AllowUserToAddRow这个属性改为True的时候出现如下错误：

因为单元格的value是空的，对一个控制进行.ToString（）操作时，就会出现System.NullReferenceException异常。对此我将toString去掉，就不报错了，另外你可以对value先进行是否为空进行判断如果不为空，在进行Tostring（）操作，上述是在修改代码的基础上来解决了这个问题，另外对于控件本身也有一个属性控制，是否自动添加空白行。VB.NET版机房收费系统，未完，待续......

给我老师的人工智能教程打call！http://blog.csdn.net/jiangjunshow

你好！这是你第一次使用 **Markdown编辑器** 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章，了解一下Markdown的基本语法知识。

新的改变

我们对Markdown编辑器进行了一些功能拓展与语法支持，除了标准的Markdown编辑器功能，我们增加了如下几点新功能，帮助你用它写博客：

全新的界面设计 ，将会带来全新的写作体验；
在创作中心设置你喜爱的代码高亮样式，Markdown 将代码片显示选择的高亮样式 进行展示；
增加了 图片拖拽 功能，你可以将本地的图片直接拖拽到编辑区域直接展示；
全新的 KaTeX数学公式 语法；
增加了支持甘特图的mermaid语法¹ 功能；
增加了 多屏幕编辑 Markdown文章功能；
增加了 焦点写作模式、预览模式、简洁写作模式、左右区域同步滚轮设置 等功能，功能按钮位于编辑区域与预览区域中间；
增加了 检查列表 功能。

功能快捷键

撤销：Ctrl/Command + Z
重做：Ctrl/Command + Y
加粗：Ctrl/Command + B
斜体：Ctrl/Command + I
标题：Ctrl/Command + Shift + H
无序列表：Ctrl/Command + Shift + U
有序列表：Ctrl/Command + Shift + O
检查列表：Ctrl/Command + Shift + C
插入代码：Ctrl/Command + Shift + K
插入链接：Ctrl/Command + Shift + L
插入图片：Ctrl/Command + Shift + G

合理的创建标题，有助于目录的生成

直接输入1次#，并按下space后，将生成1级标题。
输入2次#，并按下space后，将生成2级标题。
以此类推，我们支持6级标题。有助于使用TOC语法后生成一个完美的目录。

如何改变文本的样式

强调文本 强调文本

加粗文本 加粗文本

标记文本

~~删除文本~~

引用文本

H₂O is是液体。

2¹⁰ 运算结果是 1024.

插入链接与图片

链接: link.

图片:

带尺寸的图片:

当然，我们为了让用户更加便捷，我们增加了图片拖拽功能。

如何插入一段漂亮的代码片

去博客设置页面，选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片.

// An highlighted block var foo = 'bar';

生成一个适合你的列表

项目
- 项目
  - 项目

项目1
项目2
项目3

计划任务
完成任务

创建一个表格

一个简单的表格是这么创建的：

项目	Value
电脑	$1600
手机	$12
导管	$1

设定内容居中、居左、居右

使用:---------:居中
使用:----------居左
使用----------:居右

第一列	第二列	第三列
第一列文本居中	第二列文本居右	第三列文本居左

SmartyPants

SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如：

TYPE	ASCII	HTML
Single backticks	`'Isn't this fun?'`	‘Isn’t this fun?’
Quotes	`"Isn't this fun?"`	“Isn’t this fun?”
Dashes	`-- is en-dash, --- is em-dash`	– is en-dash, — is em-dash

创建一个自定义列表

Markdown

Text-to- HTML conversion tool

Authors

John

Luke

如何创建一个注脚

一个具有注脚的文本。²

注释也是必不可少的

Markdown将文本转换为 HTML。

KaTeX数学公式

您可以使用渲染LaTeX数学表达式 KaTeX:

Gamma公式展示 $\Gamma(n) = (n-1)!\quad\forall n\in\mathbb N$ 是通过欧拉积分

$\Gamma(z) = \int_0^\infty t^{z-1}e^{-t}dt\,.$

你可以找到更多关于的信息 LaTeX 数学表达式here.

新的甘特图功能，丰富你的文章

gantt
        dateFormat  YYYY-MM-DD
        title Adding GANTT diagram functionality to mermaid
        section 现有任务
        已完成               :done,    des1, 2014-01-06,2014-01-08
        进行中               :active,  des2, 2014-01-09, 3d
        计划一               :         des3, after des2, 5d
        计划二               :         des4, after des3, 5d