主题：[求助]如何动态执行代码

此主题相关图片如下：{234aa4de-2f91-423b-9860-3fc647ffd549}.bmp

For Each dr As Row In Tables("JX月绩效工作中心").Rows
Dim code As String = dr("录入数据取数条件")
Functions.add("sum",code)
Functions.Complie()
dr("得分") = Functions.Execute("sum")
Functions.remove("sum")
Next

我用动态函数加载，这代码执行效率比较低，有没有办法优法。可不可以自定义过程