主题：[求助]双精度的nothing等于空字符“” ：已解决，是电脑问题

DataColChanging事件代码：

If e.DataCol.IsNumeric Then
  If e.NewValue = 0 Then
    e.NewValue = Nothing
  End if
End If

CurrentTableChanged事件代码：

Case "项目借款"

  Dim ta As New DropTreeBuilder

  ta.SourceTable = DataTables("项目管理")

  ta.TreeCols = "部门名称|借款人|项目名称"

  ta.SourceCols = "项目名称|合同额|营业额|责任成本|匹配成本|支出合计|到款总计|借款余额|项目经理" '指定数据来源列

  ta.ReceiveCols = "项目名称|合同额|完成产值|预算成本|匹配成本|开累支出|累计到款|借款余额|项目经理" '指定数据接收列

  ta.TreeSort = "部门名称,借款人,项目名称"

  CurrentTable.Cols("项目名称").DropTree = ta.Build()

问题现象：

  在项目借款表中选择项目名称时，如果第一次选择的项目借款余额不为0，则改选借款余额为0的项目时，会出现下列错误，且原来的借款余额不会清0。实际上，所有的数值列引用都有这个问题。

  从字符串 "" 到类型 "Double" 的转换无效

解决办法：

1、修改代码为：If e.DataCol.IsNumeric andalso e.DataCol.name<>"借款余额" Then

但引用的数值列越多，上述代码就越长，数据表中显示0值就越多，因而越难看。

2、借款余额列为空白的改为数值0

求助：

这是bug吗？

If e.DataCol.IsNumeric Then
  If val(e.NewValue) = 0 Then
    e.NewValue = Nothing
  End If
End If

对于数值列， val(e.NewValue) 与e.NewValue是一样的。

 测试，不会报错。请上传实例测试。

多个数值表达式列的表达式中用到了null，而null被视为字符串，所以，不得不弃用null，显示所有的0，虽然不好看，但至少可以让这个功能完美了。

上实例测试

表A为原始数据表，其<营业额总计>为包含null的公式

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数值问题.foxdb

 你给的例子，测试没问题。

 

 再有就是，全局表事件需要开启的 DataTables("表B").GlobalHandler.DataColChanging = True

谢谢。我现在测试也正常了，原来的一些其它问题也突然没了。