获得当前窗体筛选后的记录，进行Dsum计算

时　间:2015-11-24 14:34:14
作　者:布鲁斯   ID：31999  城市：中山
摘　要:可以实现即时获得筛选后的某个字段信息变化。比如：总价，数量 等等。
正　文:

实现了利用窗体自带的属性，快速的计算出当前窗体筛选后的记录。

方法暂时想到2个：

1方法：（这个方法执行效率相对较低，毕竟经过多步转化）
        Dim RST As Recordset
        Set RST = Me.Form.Recordset

'        Debug.Print RST.RecordCount
        If RST.RecordCount = 0 Then Exit Sub
        RST.MoveFirst
        Do Until RST.EOF
            Br_a = RST.Fields("单价") + Br_a
        RST.MoveNext
        Loop
        Debug.Print Br_a

2方法：（简单直接高效，现成利用窗体自带属性，问了很多大神才最后找到这条路）

    Br_a = DSum(Me.单价, Me.Form.RecordSource, Me.Filter)
    Debug.Print Me.Filter
    Debug.Print "筛选", Time, Br_a