导入excel表时，怎么判断是不是数值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导入excel表时，怎么判断是不是数值

共有1883人关注过本帖树形打印复制链接主题：导入excel表时，怎么判断是不是数值

xxfoxtable

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

加好友

发短信

等级：七尾狐帖子：1750 积分：16485 威望：0 精华：0 注册：2017/6/1 23:12:00

导入excel表时，怎么判断是不是数值 发帖心情

Post By：2018/1/18 21:40:00 [显示全部帖子]

导入excel表时，怎么判断是不是数值

xxfoxtable

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

加好友

发短信

等级：七尾狐帖子：1750 积分：16485 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2018/1/18 21:48:00 [显示全部帖子]

    Dim nms() As String = {"品名","封装","数量","单价","金额","仓库","区域","电话","备注"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim dr As DataRow = DataTables("销售").AddNew()
        For m As Integer = 0 To nms.Length-1

            Select Case m
                Case 0,1
                    dr(nms(m)) = Sheet(n,m+1).Value.trim()
                Case 2,3,4
                    'If Sheet(n,m+1).Value.IsNumeric
                        If Sheet(n,m+1).Value="" Then
                        Else
                            dr(nms(m)) = Sheet(n,m+1).Value
                        End If
                    'Else
                        'msgbox("行"& n & "列" & m+1 & "不是数值,记住后,请更改")
                    'End If
                Case Else
                    dr(nms(m)) = Sheet(n,m+1).Value
            End Select
        Next
    Next

xxfoxtable

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

加好友

发短信

等级：七尾狐帖子：1750 积分：16485 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2018/1/18 22:06:00 [显示全部帖子]

单元格sheet(n,m+1).Value=“” 判断不了，什么也不显示，还应该怎么判断，是不是里面有特殊不可见符或者是空格？怎么判断为好？

[此贴子已经被作者于2018/1/18 22:06:48编辑过]

xxfoxtable

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

加好友

发短信

等级：七尾狐帖子：1750 积分：16485 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2018/1/18 22:20:00 [显示全部帖子]

完美解决，水平高，实在是高

下一主题 >> << 上一主题

主题：导入excel表时，怎么判断是不是数值