【VB.NET机房重构】从字符串到类型double的转换无效？

二、解决历程

        这个问题出现在充值过程中抛出的，数据库中明明没有double类型的数据，但是却抛出这个问题，很是奇怪。总之是数据类型的问题，最省事儿的办法就是把money改为varchar类型的，但是这样不专业，还是继续寻找解决的办法吧。

       因为CardInfo表中的Money字段我设置的类型是int型的，但是实体中是string类型的，所以我把实体层改为integer类型的，这下可以进行运算了吧，但是运行结果还是转换无效。因为我忽略了文本框中输入的数据本身就是string的，所以我又把实体层改回string的，还要在D层代码中进行了数据类型转换，还要在U层显示中也要进行数据类型转换， 不然会出现“10+30=1030”的数据更新。

              这是U层部分代码

        '更新CardInfo表
        rechargebll.AddRecharge(scentity)
        '更新RechargeLog表
        rechargebll.AddRechargeLog(scentity)
        '界面显示
        txtList.Text = "充值卡号为：" + scentity.CID &
            vbNewLine & vbNewLine & "充值金额为：" + scentity.Recharge &
            vbNewLine & vbNewLine & "总金额为：" + scentity.Money & "+" & scentity.Recharge & "=" & +Val(scentity.Money) + Val(scentity.Recharge) &
            vbNewLine & vbNewLine & "充值老师为：" + Entity.Common2.strCurrentUserID
        MsgBox("充值成功") 

       这是D层部分代码

      cmd.Parameters.Add(New SqlParameter("@Money", Val(scentity.Money) + Val(scentity.Recharge)))

     运行效果图

三、总结

        一个字符串类型的变量和一个数值型的数据相加，在vb.net中会将其中字符型的数据转换为数值型的，然后再相加，在这个转化过程中，系统会先将字符型和数值型的数据都向更高精度的数据类型double类型转换，整型数据转换成double型的OK，但是字符型转换成double就出问题，然后抛出错误。