专家坐堂-文本框互相乘的时候，有很多小数，怎么办？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文本框互相乘的时候，有很多小数，怎么办？  (http://foxtable.net/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