VB.NET版机房收费系统---导出Excel表格-阿里云开发者社区

开发者社区> 丁国华> 正文

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

简介:        datagridview,翻译成中文的意思是数据表格显示,使用DataGridView控件,可以显示和编辑来自不同类型的数据源的表格,将数据绑定到DataGridView控件非常简单和直观,大多数情况下,只需要设置DataSource属性即可,在绑定到包含多个列表或表的数据库源时,只需将DataMember属性设置为绑定的列表或表的字符串即可。
+关注继续查看

       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版机房收费系统,未完,待续......

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
IText 表格设置
package test; import java.awt.Color;import java.io.FileOutputStream;import java.io.IOException;import com.
625 0
VB.NET版机房收费系统---SqlHelper
        SqlHelper,最早接触这个词儿的时候,好像是13年的暑假,那个夏天来的比往年来的稍晚一些,呵呵,sqlhelper,翻译成中文就是数据库助手,帮手。
947 0
VB.NET版机房收费系统---组合查询
       查询的意思就是查找,寻找,指在某一个或几个地方找出自己所要的信息,假如我想搜索一下我自己写的博客,名字叫做初雪之恋,我在百度的搜索框中输入丁国华三个字,会有怎样的惊喜等着我?                          ...
793 0
【技术贴】每次打开excel表格都会弹出新excel。book1.xls解决方法
C:\Program Files\Microsoft Office\OFFICE11\XLSTART目录下有一个book1的文件,右键删除之,立即解决问题!
906 0
VB.NET版机房收费系统---导出Excel表格
       datagridview,翻译成中文的意思是数据表格显示,使用DataGridView控件,可以显示和编辑来自不同类型的数据源的表格,将数据绑定到DataGridView控件非常简单和直观,大多数情况下,只需要设置DataSource属性即可,在绑定到包含多个列表或表的数据库源时,只需将DataMember属性设置为绑定的列表或表的字符串即可。
1233 0
C#读取Excel表格中数据并返回datatable
在软件开发的过程中,经常用到从excel表格中读取数据作为数据源,以下整理了一个有效的读取excel表格的方法。   DataTable GetDataTable(string tableName,string leftTopCel,string rightbutCel) ...
1036 0
Thinkphp5.0 PHPExcel 数据表格导出导入
1、先在github里面下载PHPexcel这个类库 或者通过以下链接下载PHPexcel类库。 http://www.php.cn/xiazai/leiku/1491 2、解压之后把它复制到extend里面 控制器代码如下: /** * Created by PhpStorm.
1795 0
+关注
丁国华
你只管努力,剩下的交给时光!
214
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
《2021云上架构与运维峰会演讲合集》
立即下载
《零基础CSS入门教程》
立即下载
《零基础HTML入门教程》
立即下载