主题：[求助]如何实现以下功能

[求助]如何实现以下功能：

 

 

Dim a As Integer = 1 Dim b As Integer = 1 Dim c As Integer Dim gs =  a + b  c = Eval(gs)         Output.Show (c)      再次求助，下面的代码不能计算，是什么原因？

 

 

Dim r As Row = Tables("表A").rows(0)
Dim a As Integer = 1
Dim b As Integer = 1
Dim c As Integer

Dim gs = r("第四列")     ‘单元格内容为 " a + b "   

c = Eval(gs)       

Output.Show (c)

 

 

 

 

 

应该说“ c = a + b ”是个表达式，Output.Show (c)会自动计算出结果。

 

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

语法

Dim s As String = "1 + 2 + 3"
Output.Show(Eval(s))

输出结果为：6

谢谢楼上回答。

 

我可能没有表述清楚

 

 

Dim gs As String = " c = a + b "

Dim a As Integer = 1
Dim b As Integer = 1
Dim c As Integer
c = a + b    问如果 “ c = a + b ” 是一个字符串，如何转换为计算公式

                  也就是如何让  字符串“gs”  转换为计算公式 并计算出结果哪
Output.Show (c)  = Output.Show (？？gs？？) 

Dim a As Integer = 1
Dim b As Integer = 1
Dim c As Integer
Dim gs  =  a + b 

c = a + b   ' 问如果 " c = a + b " 是一个字符串,如何转换为计算公式
Output.Show (c)
Output.Show (Eval(gs))

Dim a As Integer = 1
Dim b As Integer = 1
Dim c As Integer

Dim gs =  a + b

c = Eval(gs)        

Output.Show (c) 

 

可以了