指定的转换无效

[zlylm]

        dim ssnjd() as single
        Dim reader As Odbc.OdbcDataReader = command123.ExecuteReader
        While reader.Read
            sszh(i) = reader.GetString(0)
            ssrqsj(i) = reader.GetString(1)
            ssnjd(i) = CDbl(reader.GetString(2))'出错行
            i = i + 1
        End While

数据库中源字段的类型是Float

运行出现错误为：

未处理的“System.InvalidCastException”类型的异常出现在 system.data.dll 中。

其他信息: 指定的转换无效

有时候运行正常错误不会出现，但是他心情不好的时候就不跟我合作了。我实在不知道是怎么回事
请个位帮忙看看，我给加分
到底是什么原因啊？

[vwxyzh]

""也会报错的

[CloneCenter]

ssnjd(i) = CDbl(reader.GetString(2))
修改下，判断是否可以转换为数字。
ssnjd(i) = IIf(reader.GetString(2) = "", 0, CDbl(reader.GetString(2)))

[zjjxxhn19840204]

reader.GetString(2)从数据库取出的值是什么啊，另外，
dim ssnjd() as single 定义好像有问题

[ping502]

可能是類型的級別問題。。。

[zlylm]

是一组数据 数据类型为Float
那个是我定义的数组
那这个要数组怎么定义啊？

[kbryant]

CDbl(reader.GetString(2)) 返回的是double型的数据，直接赋值给single型的不知道行不行

还有reader.GetString(2)从数据库取出的值是什么，是不是有值取出来看一下

[zlylm]

如果是类型级别，那我要怎么转换才能不出错啊？

[zlylm]

不好意思我写错了。
定义的数组就是double型的

[vwxyzh]

取出来的数据不能转换成数字（例如：DBNull）

[Hesperus]

VB真是看不懂了

[zlylm]

问题解决了，只要在查询语句中设定条件，使数据不为空就可以了。

[mainbaby]

其实只要保证reader.GetString(2)即不为空也不为Null就可以了，如果是就赋0即可。
If reader.GetString(2).ToString.Trim <> "" Then
ssnjd(i) = CDbl(reader.GetString(2))
Else
ssnjd(i) = 0
End If

[zlylm]

楼上的方法我试过了，结果还是出现了这个错误

未处理的“System.InvalidCastException”类型的异常出现在 system.data.dll 中。

其他信息: 指定的转换无效。

[zlylm]

我决定对查询语句做手脚了，看看能不能解决。

[zlylm]

换个方法我的问题是真的解决了，不过关于判断是否为空的方法还不知道啊！

[mainbaby]

If Not IsDBNull(reader.GetString(2)) AndAlso reader.GetString(2) <> "" Then
ssnjd(i) = CDbl(reader.GetString(2))
Else
ssnjd(i) = 0
End If
要是这个都不行，偶就真没啥方法了。

[mainbaby]

考虑在在SQL层面把Null转换成0，而不是设定条件，使数据不为空。例如
select A,B,IsNull(C,0) from XXX ……
C就是你的reader.GetString(2)字段。

[zlylm]

ssnjd(i) = IIf(reader.GetString(2) = "", 0, CDbl(reader.GetString(2)))
这样写效果是一样的，还是不行

[zlylm]

现在就剩下一个问题了，就是怎么才能有效的判断数据是否位空而不出错。

[zlylm]

好吧。就这么着吧！
给分