[求助] 关于空行的计算问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

For Each r As Row In t.Rows

Dim s As Double =20* r("迟到次数") + 50*r("严重迟到次数")

目前由于迟到次数和严重迟到次数中有空白格，而且这两列都是 string

应该如何处理呢。

---------------------------

版本:2019.6.18.1

---------------------------

代码执行出错，错误信息：

System.InvalidCastException: 从字符串“”到类型“Double”的转换无效。 ---> System.FormatException: 输入字符串的格式不正确。

在 Microsoft.VisualBasic.CompilerServices.Conversions.ParseDouble(String Value, NumberFormatInfo NumberFormat)

在 Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(String Value, NumberFormatInfo NumberFormat)

--- 内部异常堆栈跟踪的结尾 ---

在 Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(String Value, NumberFormatInfo NumberFormat)

在 Microsoft.VisualBasic.CompilerServices.Operators.MultiplyObject(Object Left, Object Right)

在 UserCode.Test()

---------------------------

确定

---------------------------

迟到次数和严重迟到次数列类型改为整数列

这个表是作为基础，然后需要导入excel表格文件的。

如果新建的时候是整数列，导入会出错

那么新建之后，如何修改列属性呢

使用代码导入，然后做一下判断：http://www.foxtable.com/webhelp/topics/2334.htm

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"编号","产品","客户","雇员","单价","折扣","数量","日期"}
'注意下面的循环变量从1开始，而不是从0开始，因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row = Tables("订单").AddNew()
For m As Integer = 0 To nms.Length - 1

if Tables("订单").Cols(nms(m)).IsNumeric

r(nms(m)) = val(Sheet(n,m).Value)

else

r(nms(m)) = Sheet(n,m).Value

end if
Next
Next
Tables("订单").ResumeRedraw()

主题：[求助] 关于空行的计算问题