文本框计算错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文本框计算错误

共有9333人关注过本帖树形打印复制链接主题：文本框计算错误

wilson

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

加好友

发短信

等级：一尾狐帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00

文本框计算错误 发帖心情

Post By：2012/12/8 10:08:00 [只看该作者]

文本框计算错误

计算公式为 D5 =（D1+D2)*(D3+D3)*D4

图片点击可在新窗口打开查看此主题相关图片如下：捕获.png

我在ValueChanged里加入以下代码执行后，结果值错误

Dim ds1 As Double = e.Form.Controls("D1").Value + e.Form.Controls("D2").Value
Dim ds2 As Double = e.Form.Controls("D2").Value + e.Form.Controls("D3").Value
e.Form.Controls("D5").Value = ds1 * ds2 * e.Form.Controls("D4").Value

求助，谢谢！

wilson

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

加好友

发短信

等级：一尾狐帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00

Post By：2012/12/8 10:23:00 [只看该作者]

补充

（80+80）* （80+20）* 3 = 48000

而在文本框得到的结果不是48000

此主题相关图片如下：捕获1.png

aubber

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

加好友

发短信

等级：幼狐帖子：137 积分：947 威望：0 精华：0 注册：2012/10/18 7:20:00

Post By：2012/12/8 12:00:00 [只看该作者]

好像是做了text & text

Dim ds1 As Double = CDbl(e.Form.Controls("D1").Value) + CDbl(e.Form.Controls("D2").Value)

Dim ds2 As Double = CDbl(e.Form.Controls("D2").Value) + CDbl(e.Form.Controls("D3").Value)

e.Form.Controls("D5").Value = ds1 * ds2 * CDbl(e.Form.Controls("D4").Value)

似乎这样结果就正确了

wilson

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

加好友

发短信

等级：一尾狐帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00

Post By：2012/12/8 13:13:00 [只看该作者]

非常感谢！

OK了

unverse

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

加好友

发短信

等级：五尾狐帖子：1088 积分：8247 威望：0 精华：4 注册：2012/3/31 18:08:00

Post By：2012/12/8 22:57:00 [只看该作者]

value的默认值应该是字符型的。如果要计算得强制转换一下才可以。。

下一主题 >> << 上一主题

主题：文本框计算错误