access 自定义公式的计算问题

杜垒　发表于：2019-04-22 14:33:56 　

我写了一段代码如下：
Private Sub 计算1_Click()
Dim fxbz As Integer, lxbz As Integer, ys As Integer
Dim yzj As Variant
Dim gs As String
yzj = 15
ys = 2
fxbz = 2
lxbz = 10
gs = DLookup("公式", "公式表", "序号= " & 1)‘gs=yzj*ys*fxbz*lxbz
Me.结果 = Eval(gs)‘gs=yzj*ys*fxbz*lxbz
End Sub

运行结果显示：”错误2482，不能找开您在表达式中输入的名称“yzj"“
请专业人士帮我看下是哪里出问题了，如果不通过dlookup查找而是通过直接写入公式：gs=yzj*ys*fxbz*lxbz，这样是可以计算显示结果的，但是用dlookup查找来的公式就会出错。

Top

总记录：0篇页次：0/0 9 1 :

Access交流中心

access 自定义公式的计算问题