主题：求助！关于动态管理函数

目前我在设计一个计算体积的代码。在一张数据表中有两列，一列为属性，记录计算体积需要的物料属性，通过/隔开，如“直径/厚度”另一列填写的是公式，如“（直径）^2*math.pi*厚度”我写了一段代码，如下，可是运行不了。请高手帮助分析原理。

        dim czr As DateRow = e.DateTable.row

        dim sx As String

        dim gs As String

        dim values() As String

        sx = czr("属性")
        gs = czr("公式")
        values = sx.split("/")
        Dim bl(values.length - 1) As Single
            For kjsl = 0 To values.Length - 1
                bl(kjsl) = e.Form.controls(values(kjsl)).value
                gs = gs.Replace(values(kjsl),bl(kjsl))
            Next
                code = "dim gsjs As single = gs" & vbcrlf
                code = code & "return gsjs"
            Functions.Add("gsjs",code)
            Functions.Complie()       

 代码写错了。应该这样写。

 code = "dim gsjs As single = " & gs & vbcrlf
 code = code & "return gsjs"

感谢小林同学，功能实现了。这个报价软件中最难的部分已经解决了。Foxtable太强大了。哈哈哈

 dim czr As DateRow = e.DataRow