流水账结余计算

    ssql = "SELECT * FROM Temp_Stock ORDER BY PART,START_DATE" ‘取出资料,按料件和日期排序

    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    s = 0  ‘初始值为0

    Do While rs.EOF = False

    rs!Carry_on = s + rs!STOCK + rs!LINE_STOCK + rs!PO - rs!SO ‘计算结余

    rs.Update  ‘写入资料库

    P = rs!PART  ‘取出料件编号

    s = rs!Carry_on  ‘将S重置为计算后的结余

    rs.MoveNext

    P1 = rs!PART ‘取出下一步和料件编号

    If P <> P1 Then  ‘判断两次取出的料件是否相当,不相等S重置为0

    s = 0

    End If

    Loop

    rs.Close

    Set rs = Nothing

用这个方法计算1万笔资料就耗时半分钟了,有没有更快速的方法?