Foxtable(狐表)用户栏目专家坐堂 → [求助]自编码合并数据与Merger的问题


  共有2347人关注过本帖树形打印复制链接

主题:[求助]自编码合并数据与Merger的问题

帅哥哟,离线,有人找我吗?
chnfo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2239 积分:18446 威望:0 精华:0 注册:2011/11/26 20:21:00
[求助]自编码合并数据与Merger的问题  发帖心情 Post By:2016/10/22 16:17:00 [只看该作者]

有一个EXCEL表,里面有编号、名称、单位、数量、单价列。其中有一些行的数量列是空的(没有将它输为0)

如果用merger,没有问题。

如果用自行编码来合并
Dim Book As New XLS.Book(表的路径)
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
t.StopRedraw
Dim nms() As String = { "Code","Title",”Unit","A","P" }
For n As Integer = 1 To Sheet.Rows.Count -1 
    Dim r As Row = t.AddNew()
    For m As Integer = 0 To nms.Length - 1
         r(nms(m)) = Sheet(n,m).Value
    Next
Next
运行中弹出错误提示


版本:2016.7.29.1
代码执行出错,错误信息:
System.ArgumentException: 输入字符串的格式不正确。不能在 P 列中存储 <>。所需类型是 Double。 ---> System.FormatException: 输入字符串的格式不正确。

如果回到EXCEL表中,将所有的空值单元格都输入0,再运行就没有问题。
怎么避免这种问题?要求把每个空单元格的值输0,有点不合情理。
[此贴子已经被作者于2016/10/22 16:17:26编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110567 积分:562725 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/22 16:27:00 [只看该作者]

Dim Book As New XLS.Book(表的路径)
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
t.StopRedraw
Dim nms() As String = { "Code","Title","Unit","A","P" }
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim r As Row = t.AddNew()
    For m As Integer = 0 To nms.Length - 1
        If Sheet(n,m).Value IsNot Nothing
            r(nms(m)) = Sheet(n,m).Value
        End If
    Next
Next

 回到顶部