[求助]数值框“NumericComboBox”计算出现近似值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数值框“NumericComboBox”计算出现近似值？

共有8499人关注过本帖树形打印复制链接主题：[求助]数值框“NumericComboBox”计算出现近似值？

红颜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：254 积分：1963 威望：0 精华：0 注册：2013/2/6 19:09:00

[求助]数值框“NumericComboBox”计算出现近似值？ 发帖心情

Post By：2013/2/19 19:48:00 [显示全部帖子]

在TextChanged事件中写入代码如下：

Dim t1 As String = Forms("找零计算").Controls("NumericComboBox1").text
Dim t2 As String = Forms("找零计算").Controls("NumericComboBox2").text
Forms("找零计算").Controls("NumericComboBox3").text = val(t1) - val(t2)

如：

10.1-10=0.0999999999999996

当小数部分的值在0.4-0.7之间时，结果是正确的。

[此贴子已经被作者于2013-2-19 20:00:27编辑过]

红颜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：254 积分：1963 威望：0 精华：0 注册：2013/2/6 19:09:00

[求助]数值框“NumericComboBox”计算出现近似值？ 发帖心情

Post By：2013/2/19 22:29:00 [显示全部帖子]

以下是引用有点甜在2013-2-19 20:11:00的发言：

正常的，这样改一下：

Dim t1 As Double = Forms("找零计算").Controls("NumericComboBox1").vlue
Dim t2 As Double = Forms("找零计算").Controls("NumericComboBox2").Value
Forms("找零计算").Controls("NumericComboBox3").value = math.round(t1- t2,6)

楼主的代码有问题，不管放在哪个事件中，都提示错误:

第一行代码，Controls("NumericComboBox1").vlue，应是Value，属于失误。

第三行代码，math.round(t1- t2,6)，去掉math。

Dim t1 As Double = Forms("找零计算").Controls("NumericComboBox1").Value
Dim t2 As Double = Forms("找零计算").Controls("NumericComboBox2").Value
Forms("找零计算").Controls("NumericComboBox3").value = Round2(t1- t2,1)

还需继续测试。

[此贴子已经被作者于2013-2-19 22:51:33编辑过]