主题：文本框互相乘的时候，有很多小数，怎么办？

 文本框互相乘的时候，有很多小数，怎么办？

 
此主题相关图片如下：１.png

 

事件都是　valuechanged

数量，单价代码

Dim ncb2 As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox2")
Dim ncb3 As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox3")
Dim ncb4 As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox4")
ncb4.Value = Val(ncb3.Text) * Val(ncb2.Text)

 

金额代码

Dim ncb2 As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox2")
Dim ncb3 As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox3")
Dim ncb4 As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox4")
If Val(ncb2.Text) > 0 Then
ncb3.Value = Val(ncb4.Text) / Val(ncb2.Text)
End If

 

单价我输入的是0.1

 不行，还是有很多小数

 

 

此主题相关图片如下：１.png