[求助]如何取得记录集中某字段的汇总

zyp

因为是用在ADP中，数据源来自一个带参数的存储过程，根据窗体的条件的变化，重新赋值参数，重新用存储过程取得数据源：

Dim RS as New ADODB.Recordset
SET RS=Currentproject.connection.execute("Exec 存储过程1 @参数1=值1，@参数2=值2")
SET Me.Recordset=Rs

在ADP的窗体中有一个文本框(Text1)为当前记录集中某一字段的汇总，假设字段名为 Num1，绑定此字段的控件名为Num1L，在mdb中可以用文本框的数据源=Sum([Num1L]) 即可取得此字段的汇总金额，但在ADP中这种方法不知为何无法通过，总是显示"#错误"，所以我改为下面方法取得此字段的汇总值（在VBA中计算）：

dim TotalNum as long      '我的字段值为整数，所以数据类型为long
TotalNum=0
do Until Rs.Eof
      TotalNum=TotalNum+RS!Num1
      Rs.MoveNext
Loop
SET Rs=Nothing
me.Text1=TotalNum

用上面这个方法可以达到目的，但过程过于繁琐。

我想请教哪位高手有方法直接从RS中取得NUM1字段的汇总值，而不用写那么多代码（红色部分），或者哪位ADP高手有用过直接在窗体中汇总某字段的方法，还请赐教（窗体数据源用me.Recorsource="Select * from ..."是可以的，但用set me.recordset="....."就不行了)

多谢关注！

[此贴子已经被作者于2005-12-3 17:12:44编辑过]

zyp

自己顶一下

有高手可以解答吗？谢谢！