如何将这字串表达转换数据计算式

kennylee

如
表1的字段【截面形状】为圆形，字段[面积]公式是“3.14*D^2/4"

Public Function Area(A As String, D As Double) As Double'A是截面形状，D是直径
Dim M As String '面积表达式
M = DLookup("面积", "表1", "截面形状='" & A & "'")
Area= 3.14 * D ^ 2 / 4  '如何将这字串表达转换数据计算式！！！
End Function
多谢指教！

xuwenning

可以参考版主todaynew 的【Access小品】关于字符串与数组的那点事

　　版友sbsfhgl 同志有两表其一为材料价格其二为配料核算，其配料表中的配料字段存放用一个加号连接的字符 ...
todaynew 发表于 2010-9-9 17:51

todaynew

如
表1的字段【截面形状】为圆形，字段[面积]公式是“3.14*D^2/4"

Public Function Area(A As String,  ...
kennylee 发表于 2010-9-18 23:36

Public Function Area(A As String, D As Double) As Double'A是截面形状，D是直径
Dim M As String '面积表达式
M = DLookup("面积", "表1", "截面形状='" & A & "'")
M=Replace(M,"D",D)
Area=Eval(M)
End Function

kennylee

多谢todaynew