[讨论]eval函数问题

a91838338

有一个表

货品        参数1           参数2             价格          公式

aaa          100             200                               ((1221.11/3980*ca1+24.68)*1.05+4.8*1.05)*1.005

bbb          200              300                               ((1096.48/4512*(2*0.9*ca1+ca2)+72.26)*1.05+19.57*1.05)*1.005



现在参数1和参数2我已经放到变量中

dim ca1 as Variant

dim ca2 as Variant

dim caculation as variant



ca1=val([参数1])

ca2=val([参数2])



现在想通过公式进行价格的计算

caculation=me![公式]

me!价格=eval(caculation)

可是不行，运行后显示找不到 CA1 CA2

如图中，L1就是其中的参数之一！

请各位帮帮忙了！THANK YOU

andymark

表里保存的cal是字符,不是变量,先把公式的字符,用replace替换成变量cal,再调用

论坛上有类似的例子,搜索一下