以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于Eval的一个问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69549)
--  作者：tongliaozyr
--  发布时间：2015/6/7 7:30:00
--  [求助]关于Eval的一个问题

[求助]关于Eval的一个问题

 

 

Foxtable提供了一个Eval函数，用于自定义表达式求值。
需要注意的是，这个表达式是一个独立的系统，和我们之前用于列计算和筛选的表达式完全不同，这里的表达式采用VBScript语法。

语法

Eval(Expr)
Eval(Expr,Row)
Eval(Expr,DataRow)

 

Expr:    要求值的表达式
Row:     用于取值的Row
DataRow: 用于取值的DataRow

 

这里的 Expr = “[单价]*[数量]”

 

想实现  Expr = “b * 7 ”这个功能

 

Dim b As Integer = 13698025
Dim f As String = "b * 7"      \'这个公式没有错，就想在表中定义公式
Dim c As Integer
c = eval(f)
Return c

 

请问有什么办法，谢谢！

 
--  作者：y2287958
--  发布时间：2015/6/7 7:52:00
--  
Dim f As String = b & " * 7"
--  作者：tongliaozyr
--  发布时间：2015/6/7 8:18:00
--  
以下是引用y2287958在2015/6/7 7:52:00的发言：
Dim f As String = b & " * 7"

谢谢！

 

就是要解决用   "b * 7"   字符串  的问题 ，这是一个简单的例子 

 

 
--  作者：大红袍
--  发布时间：2015/6/7 9:21:00
--  

 你需要用动态编译的方式，参考

 

 http://www.foxtable.com/help/topics/1487.htm