Office中国论坛/Access中国论坛

标题: 有没有比这更好的上月余量查询的代码？ [打印本页]

作者: kxjrzyk 时间: 2005-3-24 00:41
标题: 有没有比这更好的上月余量查询的代码？
大家好，我用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 时间: 2005-3-24 04:35
查询语句说：用[材料收支表.材料ID]分组，每组中求(每天进库与出库之差)之和，结果就是某时段内的总库存吧。

作者: hi-wzj 时间: 2005-3-24 05:06
要求上月余量的方法很多，其实方法是没有最好的，只有最适合的。因为任何算法都要考虑用户的实际运作情况，软硬件的配置等。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)