以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何根据公式计算出结果  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173316)

--  作者:lihe60
--  发布时间:2021/11/24 8:13:00
--  如何根据公式计算出结果
表c中,如何根据公式计算出结果
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


[此贴子已经被作者于2021/11/24 8:28:55编辑过]

--  作者:有点蓝
--  发布时间:2021/11/24 8:43:00
--  
Dim s As String = "身高*0.7-体重"
For Each r As Row In Tables("c").Rows
    If s Like "*" & r("项目名称") & "*" Then
        s = s.Replace(r("项目名称"),r("指标"))
    End If
Next
msgbox(s)
msgbox(eval(s))