Question

在vb.net希望实现前三个文本框相加的值在页面的第四个文本框显示

Private Sub tbload_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbload.TextChanged
Dim bj As Double '定义一个double类型的变量 存放保价费用
Dim yf As Double '定义一个double类型的变量 存放运输费用
Dim load As Double '定义一个double类型的变量 存放装卸费用
Dim amount As String '定义一个string类型的变量 存放总金额
load = CType(tbload.Text.Trim, Double)
bj = CType(tbbaojia.Text.Trim, Double)
yf = CType(tbyunfei.Text.Trim, Double)
amount = CType(load + bj + yf, String)
tbamount.Text = amount '赋值给总金额
End Sub

注：在数据库里我将总金额定义成了string型，因为涉及的问题多所以无法修改，我给几个需要输入的金额都添加了验证控件，其中正则表达式是这样的：^(-|.?)\${0,1}(\d{1,3}|\d{1}\,\d{3}|(\d+))\.(\d{2})$
现在运行时常常出错误， 而且我希望总金额显示的形式是：23.00这种形式的 希望大家帮忙 告诉我怎么做

Answer 1

把amount = CType(load + bj + yf, String) 改成amount = CType(load + bj + yf, Double)
后面在加
amount = CType(amount , String)

Answer 2

可以在付值的时候先转化为整型，而在填充到数据库中时再转化为字符类型！