以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导入excel表时，怎么判断是不是数值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113581)
--  作者：xxfoxtable
--  发布时间：2018/1/18 21:40:00
--  导入excel表时，怎么判断是不是数值
导入excel表时，怎么判断是不是数值
--  作者：有点甜
--  发布时间：2018/1/18 21:45:00
--  

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

 

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

 
--  作者：xxfoxtable
--  发布时间：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
--  作者：有点甜
--  发布时间：2018/1/18 21:51:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0324.htm

 
--  作者：xxfoxtable
--  发布时间：2018/1/18 22:06:00
--  

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

[此贴子已经被作者于2018/1/18 22:06:48编辑过]
--  作者：有点甜
--  发布时间：2018/1/18 22:15:00
--  

如果判断是否数值

 

Dim d As Double

If Double.Tryparse(Sheet(n,m+1).Text, d) Then

 

如果要判读是否为空

 

If Sheet(n,m+1).Text = "" OrElse Sheet(n,m+1).Text.Trim = "" Then

 
--  作者：xxfoxtable
--  发布时间：2018/1/18 22:20:00
--  

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