如何在文本框中自动计算

花落，相依　发表于：2014-02-16 15:34:38 　

如何在文本框中自动计算(我想左右截取星号前面的数字乘以星号后的数再乘3.146）不知怎么来取这些数

计算方法，*号左边乘以*号后面再乘3.146 然后四舍五入，保留小数1位。

如：
240*234*3.146 =176679.36 然后四舍五入，保留小数1位。=176679.4

400*245*3.146 =308308

煮江品茶发表于：2014-02-16 18:21:20

假设窗体上有文本框 [长半轴]、[短半轴]、[面积]三个文本框，则在面积文本框的控件来源中写：=Round([长半轴]*[短半轴]*3.146,1)

蟹仔发表于：2014-02-16 18:31:56

如果你一定要在一个文本框里输入公式。

那么代码就是

Set s = CreateObject("ScriptControl")
s.Language = "VBScript"
MsgBox round(s.Eval(Text0),1)
可以试下text0的内容为cos(sin(60)+2)*5/8，计算出来的结果就是的-7.7

花落，相依发表于：2014-02-16 19:17:28

谢谢老师指点，我是想在一个文本框中这样实现：如我录入230*234*3.146时就另一个数字文本框中显示为数字出来

也就是说，当我在文本框中录入了240*234时，这时就自动计算出面给赋值给面积这个字段。请老师们教一招

蟹仔发表于：2014-02-16 19:31:25

左边更新后写代码不就行了

Set s = CreateObject("ScriptControl")
s.Language = "VBScript"
右边文本框= round(s.Eval(Text0),1)

在水一方发表于：2014-02-16 19:44:56

Me.Text2 = Eval(Me.Text1)

总记录：5篇页次：1/1 9 1 :

Access交流中心