以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  计算小数点,四舍五入  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=149390)

--  作者:yangwenghd
--  发布时间:2020/4/30 11:22:00
--  计算小数点,四舍五入
老师,帮帮忙看看在干吗?就是不管结果有没有小数点都显示小数点后两位,如果结果又小数点,第三位就是四舍五入。感谢 感谢老师
e.Form.Controls("NumericComboBox1").Text = e.Form.Controls("NumericComboBox2").Text * e.Form.Controls("NumericComboBox3").Text \'销售额

--  作者:有点蓝
--  发布时间:2020/4/30 11:30:00
--  
参考:http://www.foxtable.com/webhelp/topics/0361.htm


--  作者:yangwenghd
--  发布时间:2020/4/30 11:42:00
--  
e.Form.Controls("NumericComboBox1").Text = e.Form.Controls("NumericComboBox2").Text * (e.Form.Controls("NumericComboBox3").Text ,"#,###") \'销售额

老师 这个是哪里没对呀,感谢 感谢 

--  作者:有点蓝
--  发布时间:2020/4/30 11:48:00
--  
Format(某某数值,"0.00"\'12.00
--  作者:yangwenghd
--  发布时间:2020/4/30 12:05:00
--  
老师,能帮忙看看吗?现在能说出来,但是只有整数, 可以是结果又没小数都保留两位吗?感谢 感谢

Forms("做合同窗口").Controls("NumericComboBox1").Text = Format(val(e.Form.Controls("NumericComboBox2").Text.replace(",","")) * val(e.Form.Controls("NumericComboBox3").Text.replace(",","")), "#,##")

--  作者:有点蓝
--  发布时间:2020/4/30 13:33:00
--  
能不能认真的看看帮助?

Forms("做合同窗口").Controls("NumericComboBox1").value  = Format(e.Form.Controls("NumericComboBox2").value * e.Form.Controls("NumericComboBox3").value, "0.00")


--  作者:yangwenghd
--  发布时间:2020/4/30 13:40:00
--  
谢谢老师,看了看了,我是真没有明白到,还是基础太差,谢谢老师。可以了 感谢。
--  作者:yangwenghd
--  发布时间:2020/4/30 14:43:00
--  
Forms("做合同窗口").controls("NumericComboBox2").value = (Forms("采订录入窗口").controls("NumericComboBox1").value, "0.00") \'复制单价,老师这个括号是放错位置了吗?感谢 感谢 
--  作者:有点蓝
--  发布时间:2020/4/30 14:48:00
--  
Format啊,神!!

Forms("做合同窗口").controls("NumericComboBox2").value = Format(Forms("采

--  作者:yangwenghd
--  发布时间:2020/4/30 14:50:00
--  
看懂了 ,哈哈