奇怪，怎么dsum不起作用

stvent

Private Sub 支付金额_AfterUpdate()
     Dim yuer As String
     yuer = DSum([支付金额], "合同副", "合同ID='" & Me.Parent!合同ID & "'")
     MsgBox yuer
End Sub
使用msgbox校检yuer,根本出不来，请问问题出在那里？
其中，合同副为数据表，支付金额是贷金格式，合同ID是文本格式

kangking

数据类型不一致。

stvent

kangking 发表于 2011-4-29 16:11
数据类型不一致。

那该如何更改？是贷币那个出错吗？

kangking

你定义了yuer为字串，Dim yuer As String
但是，DSum() 函数计算出来的是数字。
将yuer定义为单精度或货币应该可能解决问题。

stvent

这个我试过了，改成Single这样，也出不来，很奇怪！

kangking

这就不知道是什么原因了，请上传示例。

stvent

已传上来

kangking

你将合同信息录入窗体的合同ID设置为可见，再看看为什么出错。因为库中确实没有这个合同ID存在。

stvent

kangking 发表于 2011-4-29 16:45
你将合同信息录入窗体的合同ID设置为可见，再看看为什么出错。因为库中确实没有这个合同ID存在。

因为这程序是引用了不默认保存数据的模块的！

kangking

这个就是人为的错误了，你要用合同ID为条件计算，而合同ID是错误的。
你应该清楚自己要做什么！你的示例中运行了一些函数或过程，我没有细看这些函数或过程的功能，只知道返回的值是不能满足你的要求的。