如何将使用dlookup()取过来的自定义函数进行计算？

bulesky

已经定义好一个函数，譬如：借方发生额(StrKmm as string) as double
如果直接调用这个函数，借方发生额("1001")可以求值等于1000.00等
但是，如果定义一个表，譬如：，如下表：
序号　　　公式　　　　　　　　　备注
1　　　借方发生额("1001")
.........
此时，使用xlSheet.Cells(x, (y + 1)) = DLookup("[公式]", "报表公式", "[序号]=1")
这样，求得值是　借方发生额("1001") ，而没有将 借方发生额() 作为一个函数计算，如何能使程序将其认为是一个函数进行计算，而不是认为是一个 string 值。

　　拜托！谢谢帮助！！！

飘然

val(    DLookup("[公式]", "报表公式", "[序号]=1")     )

bulesky

不行，早就试过了，取过来的数是 0 值，而不是通过函数计算出来的数值。

bulesky

难道没有办法了吗？

lichun

以下是引用bulesky在2003-4-9 12:28:38的发言：
已经定义好一个函数，譬如：借方发生额(StrKmm as string) as double
如果直接调用这个函数，借方发生额("1001")可以求值等于1000.00等
但是，如果定义一个表，譬如：，如下表：
序号　　　公式　　　　　　　　　备注
1　　　借方发生额("1001")
.........
此时，使用xlSheet.Cells(x, (y + 1)) = DLookup("[公式]", "报表公式", "[序号]=1")
这样，求得值是　借方发生额("1001") ，而没有将 借方发生额() 作为一个函数计算，如何能使程序将其认为是一个函数进行计算，而不是认为是一个 string 值。

　　拜托！谢谢帮助！！！

bulesky

将函数的名字由中文改成英文即可，可能access不认识中国字吧！