以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何读取公式并运算！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61004)
--  作者：heying325
--  发布时间：2014/12/5 8:56:00
--  如何读取公式并运算！
我有一个列，存储了公式，如图所示：

图片点击可在新窗口打开查看此主题相关图片如下：1111111111111111111111111111111111.jpg
图片点击可在新窗口打开查看
其中X是变量。。。公式我可以自己随意设置。。我现在想调用里面的公式并进行计算，我改怎么弄？ 调用我知道，就是不清楚如何让它安装我的公式进行计算！
--  作者：有点甜
--  发布时间：2014/12/5 9:03:00
--  

取得公式，然后计算

 

Dim str As String = "9+@(x-1.2)*3"
str = str.Replace("@", "").Replace("x", 100)
msgbox(Eval(str))
--  作者：utcxray
--  发布时间：2014/12/5 19:07:00
--  

帮助中的例子：


假定希望根据第一列输入的计算公式，在第二列得出计算结果，可以将DataColChanged事件代码设为：

If e.DataCol.Name = "第一列" Then
    If e.DataRow.IsNull("第一列") Then
        e.DataRow("第二列") = Nothing
    Else
        e.DataRow("第二列") = Eval(e.DataRow("第一列"),e.DataRow)
    End If
End If