主题：Eval(Expr)

 不可以，如果要不同表取数，需要跨表查找

http://www.foxtable.com/webhelp/scr/1451.htm

示例四

假定希望根据第一列输入的计算公式，在第二列得出计算结果，可以将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

由于财务指标表计算内容较多，公式也不一致，且取自不同表格，如果能够按上述例子计算就好的，

 不同的表取数的规则是什么？肯定是需要根据条件查找的。

 你可以定义一种输入公式的方式，根据输入的公式，分割截取出信息，跨表查询，然后计算。

 最简单的，你可以让用户在单元格直接写代码啊，如

下载信息  [文件大小：300.0 KB  下载次数：14]

点击浏览该文件:动态编译.table

表B中的公式

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:动态编译.table

参考代码

Dim str As String = "本期实际收入总额/本期预算收入总额×100%"
Dim ary() = str.split(new Char(){"/", "×"})
For Each s As String In ary
    Dim fdr As DataRow = DataTables("表C").find("第一列 = '" & s & "'")
    If fdr IsNot Nothing Then
        str = str.Replace(s, fdr("第二列"))
    Else
        msgbox("没找到" & s)
    End If
Next
msgbox(str)
msgbox(Eval2(str))