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

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

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

xxfoxtable

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

加好友

发短信

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

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

Post By：2018/1/18 21:40:00 [只看该作者]

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

有点甜

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

加好友

发短信

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

Post By：2018/1/18 21:45:00 [只看该作者]

1、你是如何导入excel数据的？具体一点你的问题

2、导入参考 http://www.foxtable.com/webhelp/scr/2334.htm

xxfoxtable

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

加好友

发短信

等级：七尾狐帖子：1696 积分：15873 威望：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