如何实现按不同客户代码做逐行累加?

此问题也至今仍困惑着我，想了很多办法无法解决。不过我认为应该是有办法解决的，因为现用的财务软件都可以在查询任意明细的时候给出余额列：每一笔发生额对应一笔计算后的余额。

3楼建议在在表中增加一个余额字段，本人而认为不可取，因为余额而是任意的，随着查询条件的变化而变化的，将变化的数字存在表中不太好。

我曾想过先建立一个和原表结构一致的查询，再在查询中增加一个字段，命名为：余额，值为0，再用vba编程的方式把正确的余额值逐行填列到记录中，再把最后的结果设置为数据表的记录源，表现出来，但是到最后一步出错，recordser不能设置为数据表的数据源，该处提示错误：

代码如下，请指正：

    Private Sub Form_Load()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim sglJiner As Single
    Dim sglYuer As Single
    Dim str As String
    Dim SQL As String
   
    str = InputBox("请输入项目编码：")
    With rs
        '取余额
        SQL = "select* from 项目财务信息 where (((项目财务信息.项目Id) = '" & str & "'))"
        .Open SQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
       
        If Not .EOF Then sglYuer= .Fields("余额")
        rs.Close
       
        '设置数据源
        SQL = "SELECT 财务收支明细.发生日期, 财务收支明细.备注 AS 摘要, 收付类别.类别名称 AS 收付类别, 财务收支明细.金额, 0 AS 工程款余额,0 AS 项目总余额, 收付类别.类别ID" _
            & "FROM 项目财务信息 INNER JOIN (收付类别 INNER JOIN (项目信息 INNER JOIN 财务收支明细 ON 项目信息.项目ID = 财务收支明细.项目Id) ON " _
            & "收付类别.类别ID = 财务收支明细.类别Id) ON (项目信息.项目ID = 项目财务信息.项目Id) AND (项目财务信息.项目Id = 财务收支明细.项目Id)" _
            & "WHERE (((项目财务信息.项目Id)='" & str & "'))"
   
        .Open SQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        .MoveLast’只有期末余额，所以从最后一条记录开始计算，一条一条往前计算
        sglJiner = 0
        Do Until .EOF
            sglJiner=.Fields("金额")

            .Fields("余额") = sglYuer
                sglYuer= sglYuer + sglJiner
            .MovePrevious '朝前移动
        Loop
        Me.RecordSource = SQL  '此处提示错误，不能使用该属性
        Requery
        .Close
        Set rs = Nothing
    End With
End Sub