保存电子表格格式问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 保存电子表格格式问题

共有2634人关注过本帖树形打印复制链接主题：保存电子表格格式问题

HJG_HB950207

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

等级：小狐帖子：394 积分：6003 威望：0 精华：0 注册：2015/2/17 10:18:00

保存电子表格格式问题 发帖心情

Post By：2015/7/15 18:12:00 [只看该作者]

请教在如下代码后，加上哪些代码，才能将所选列保存为含有多层表头的电子文件。谢谢

Dim dt As Table = Tables("职工一览表")

Dim Book As New XLS.Book

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

For i As Integer = 0 To nms.count -1

Sheet(0, i).Value = nms(i)

For r As Integer = 0 To dt.Rows.Count - 1 '填入数据

For i As Integer = 0 To nms.count -1

Sheet(r + 1, i).Value = dt.rows(r)(nms(i))

大红袍

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

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/15 19:17:00 [只看该作者]

主题：保存电子表格格式问题