求编一个自定义函数

jt1132

求高手指教，怎么编一个自定义函数，来对表中公式字段引用，更改表中的公式，查询中：【计算结果】自动重新按新公式计算，我试了一下用EVAL函数，但是没成功，听别人说这个要编一个自定义函数才行，我没有写
过，请教高手，这个怎么写，或者给一个范例
A       B       C        D        E        F            公式                计算结果
100    30      60      90      120      45        A+B+C            EVAL([公式])
详见附件，谢谢

roych

http://www.office-cn.net/thread-108898-1-1.html刚刚看了你的附件，eval函数不是这样用的。它无法识别表字段控件，只能识别表达式。
例如第一条记录中，字段A的值是30，字段B的值是40，则应该写成：
30+40
而不是：
[A]+[B]
因此，像这个例子，要么你通过ADO把值写入表达式，要么就直接通过ADO计算。

jt1132

计算结果: Eval(Replace(Replace(Replace([公式],"A",[A]),"B",[B]),"C",[C]))