[求助]7楼上传例子-导入EXCEL报表后如何保持数字格式一致 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]7楼上传例子-导入EXCEL报表后如何保持数字格式一致

共有2317人关注过本帖树形打印复制链接主题：[求助]7楼上传例子-导入EXCEL报表后如何保持数字格式一致

huangfanzi

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

等级：五尾狐帖子：1104 积分：8956 威望：0 精华：0 注册：2014/10/25 11:24:00

Post By：2018/5/2 22:07:00 [只看该作者]

用代码确实可以，就是烦了点，另外教程中有几处错误，少了 Data

For c As Integer = 0 To nms.length -1

Sheet(0, c).Value = caps(c) '指定列标题

Sheet.Cols(c).Width = szs(c) '指定列宽

If dt.Cols(nms(c)).IsDate Then '如果是日期列

Sheet.Cols(c).Style = st '设置显示格式

End If

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

For c As Integer = 0 To nms.length -1

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

Nex

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/2 22:18:00 [只看该作者]

回复11楼，帮助文档没有错误，dt是Table，不是DataTable

Dim dt As Table = Tables("订单")

总数 12 上一页 1 2

主题：[求助]7楼上传例子-导入EXCEL报表后如何保持数字格式一致