以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  文本框互相乘的时候，有很多小数，怎么办？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185596)
--  作者：xxfoxtable
--  发布时间：2023/3/4 14:25:00
--  文本框互相乘的时候，有很多小数，怎么办？
 文本框互相乘的时候，有很多小数，怎么办？
--  作者：有点蓝
--  发布时间：2023/3/4 14:27:00
--  
举例说明一下，最后需要什么结果
--  作者：xxfoxtable
--  发布时间：2023/3/4 14:30:00
--  

 
图片点击可在新窗口打开查看此主题相关图片如下：１.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

[此贴子已经被作者于2023/3/4 14:30:37编辑过]
--  作者：有点蓝
--  发布时间：2023/3/4 14:35:00
--  
ncb4.Value = ncb3.Value  * ncb2.Value 
--  作者：xxfoxtable
--  发布时间：2023/3/4 14:39:00
--  

 不行，还是有很多小数

 

 


图片点击可在新窗口打开查看此主题相关图片如下：１.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2023/3/4 14:40:40编辑过]
--  作者：有点蓝
--  发布时间：2023/3/4 14:46:00
--  
Dim ncb2 As decimal = e.Form.Controls("NumericComboBox2").value
Dim ncb3 As decimal  = e.Form.Controls("NumericComboBox3").value
Dim ncb4 As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox4")
ncb4.Value = ncb3  * ncb2