调用自定义函数的查询和其窗体

koutx

调用自定义函数的查询和其窗体体时出现诸多问题，请坛友们帮忙出出主意。问题在样库窗体上有说明

zzf9008

看看，谢谢!先下了

Henry D. Sy

描述不清，先说说目的！

koutx

Henry D. Sy 发表于 2012-5-21 09:37
描述不清，先说说目的！

补充说明见图示，请版主帮忙看一下。
实在想不到更好的查询方法，只好用了在查询中调用自定义函数，以避免在查询中有几次应交，就重复出现几次相同的实交款。
但却造成在窗体的右键筛选和取消筛选时，绑定查询中的实交数不能稳定显示，并且在打印预览时实交数消失的现象。

koutx

在线等

Henry D. Sy

还是不明白，你的最终意图
如果，表5中同一个id有多次交款怎么办？

koutx

Henry D. Sy 发表于 2012-5-21 15:21
还是不明白，你的最终意图
如果，表5中同一个id有多次交款怎么办？

不会出现多次交款，每续交一次，只是将表5中的实交更新，而不是新记入一笔。

Henry D. Sy

1. Public kz As Integer
   
2. 
   
3. Function etu(ByVal idh As Integer) As Currency
   
4.     If idh = kz Then Exit Function
   
5.     Dim strSj As String
   
6.     Dim rsSj As New ADODB.Recordset
   
7.     strSj = "SELECT 实交 FROM 表5 WHERE id = " & idh
   
8.     rsSj.Open strSj, CurrentProject.Connection, adOpenStatic, adLockReadOnly
   
9.     If rsSj.RecordCount <= 0 Then
   
10.         etu = 0
    
11.     Else
    
12.         etu = rsSj.Fields(0)
    
13.         kz = idh
    
14.     End If
    
15.     rsSj.Close
    
16.     Set rsSj = Nothing
    
17. End Function

复制代码

roych

太复杂了。其实表字段建立好的话，不必写那么复杂的代码的。详见附件的“查询结果”。增加一个自动编号字段，然后利用最小值（Min）即可处理。——此外，也可以用DMin来完成。

koutx

还是不行啊，版主将下句
03.Function etu(ByVal idh As Integer) As Currency
中的Variant类型改为货币型后，也不能解决我在样库窗体中注明的问题：
1、窗体右键筛选及取消筛选时，实交数字混乱
2，偶尔筛选后即便实交数字不混乱，可一打印预览实交数就没有了。
麻烦版主下载我在一楼的样库试一下，真不知内中的机理到底是什么？