text根据公式自动计算。
2009-05-18 10:53
309 查看
Dim s
If Text1 = "" Then Exit Sub
On Error GoTo errHandler
Set s = CreateObject("ScriptControl")
s.Language = "VBScript"
Text1 = s.Eval(Text1)
Set s = Nothing
flag = True
Exit Sub
errHandler: Text1 = "E"
If Text1 = "" Then Exit Sub
On Error GoTo errHandler
Set s = CreateObject("ScriptControl")
s.Language = "VBScript"
Text1 = s.Eval(Text1)
Set s = Nothing
flag = True
Exit Sub
errHandler: Text1 = "E"
相关文章推荐
- c#根据公式进行自动计算的实现
- c#根据公式进行自动计算的实现
- c#根据公式进行自动计算的实现
- c#根据公式进行自动计算的实现
- c#根据公式进行自动计算 四个5加减乘除=4
- 设置textView根据输入的文字自动增加高度
- abap--如何根据动态公式计算数据(增补),谢谢网友补充
- UGUI自定义组件之Image根据Text大小自动调整
- 根据星期自动计算离现今最近的日期
- UILabel 设置行间距 && 自动计算text 的frame
- 60.根据公式计算值
- 根据经纬度计算两点之间的距离的公式推导过程以及google.maps的测距函数
- 148.根据公式计算值
- Android自定义控件之自定义EditText,令控件中的字根据控件高度自动调整大小-FenGKun
- 81.根据公式计算值
- MVEL实现java直接根据公式计算结果
- 根据经纬度计算距离的公式
- 根据身份证自动计算年龄
- 根据经纬度计算距离的公式
- 推导基姆拉尔森公式根据日期计算星期