为何这段代码会删除exel的列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为何这段代码会删除exel的列

共有4602人关注过本帖树形打印复制链接主题：为何这段代码会删除exel的列

泡泡

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：316 积分：2628 威望：0 精华：0 注册：2013/3/4 20:21:00

为何这段代码会删除exel的列 发帖心情

Post By：2013/12/2 21:27:00 [显示全部帖子]

为何这段写excel单元格值的代码会将excel的列删除？

Dim Book1 As New XLS.Book(ProjectPath & "\隐患排查2013.xls") '打开模板

Dim fla As String = ProjectPath & "\隐患排查2013.xls"

Dim Sheet As XLS.Sheet = Book1.Sheets(0)

Dim r As Row = Tables("隐患排查").Current

Sheet(21,3).Value = r("一般隐患排查项")

Sheet(21,4).Value = r("一般隐患整改项")

Sheet(21,5).Value = r("一般隐患整改率")

Sheet(12,3).Value = DataTables("隐患排查").Compute("sum(一般隐患排查项)","填报单位 = '" & r("填报单位") & "'")

Book1.Build() '生成报表

Book1.Save(fla)

泡泡

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：316 积分：2628 威望：0 精华：0 注册：2013/3/4 20:21:00

Post By：2013/12/2 21:29:00 [显示全部帖子]

如图

此主题相关图片如下：11.gif

[此贴子已经被作者于2013-12-2 21:30:24编辑过]

泡泡

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：316 积分：2628 威望：0 精华：0 注册：2013/3/4 20:21:00

Post By：2013/12/2 21:32:00 [显示全部帖子]

文件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:直接写excel值.rar

主题：为何这段代码会删除exel的列