有没有比这更好的上月余量查询的代码？

kxjrzyk

大家好，我用ACCESS做一个材料仓库数据库，各方面现在都设置得差不多了，现在最头痛的是做月报表，因为我们是服装企业，一种材料除了材料名称外，还要有规格、颜色等属性，做月报表就要把  这个月以前的存量+这个月的进仓材料总量-这个月出仓数量总量，请问这个查询应该怎么设呢？我在一个例子中找到一些代码，不过看不懂，请版主与各位高手能教一教小弟，不胜感激！

'****************************

'名称：月上期余额示例

'作者：zhengjialon(access-cn and access abc)

'时间：2004-01-30

'****************************

'实现了在一条记录中查询上月余额本月进库和结余的问题

'本例是使用了进出库在一个表中，如果是进库和出库分别为两个表也是一样。

Public Function k(strCodeID As String, lngY As Long, lngM As Long) As Long

    Dim strSQL As String

    Dim rs As Object

    Dim cn As Object

   

    Set cn = Application.CurrentProject.Connection

    Set rs = CreateObject("ADODB.Recordset")

   

    '将材料代码和日期代入到查询条件中去

    strSQL = "SELECT 材料收支表.材料ID, Sum(([进库]-[出库])) AS 库存 " & _

             "FROM 材料收支表 " & _

             "WHERE 材料收支表.日期 < #" & lngM & "/1" & "/" & lngY & "# And 材料ID ='" & strCodeID & "' " & _

             "GROUP BY 材料收支表.材料ID;"

    rs.Open strSQL, cn, 1

   

    If rs.EOF = True Then Exit Function

   

    k = rs("库存")

    'MsgBox k

   

    rs.Close

    Set rs = Nothing

    Set cn = Nothing

End Function

bigsea76

查询语句说：用[材料收支表.材料ID]分组，每组中求(每天进库与出库之差)之和，结果就是某时段内的总库存吧。

hi-wzj

要求上月余量的方法很多，其实方法是没有最好的，只有最适合的。因为任何算法都要考虑用户的实际运作情况，软硬件的配置等。