主题：[已完成，感谢狐狸爸爸]调用统计或查询表的数据

8楼代码哪里不对，除非不是根据核算数量统计出入库。

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim d1 As Date = new Date(y,m,1)
Dim d2 As Date = new Date(y,m,Date.DaysInMonth(y,m))
For Each dr As DataRow In DataTables("库存").DataRows
    Dim s1 As String = "品名编号 = '" & dr("品名编号") & "' And 日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 部门 Like '入库*'"
    Dim s2 As String = "品名编号 = '" & dr("品名编号") & "' And 日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 部门 Like '出库*'"
    dr("账面库房数量_本月入库") = DataTables("出入库").Compute("Sum(核算数量)",s1)
    dr("账面库房数量_本月出库") = DataTables("出入库").Compute("Sum(核算数量)",s2

    s1= "品名编号 = '" & dr("品名编号") & "' And 日期 <= #" & d1 & "# And 部门 Like '入库*'"----日期？部门？
    s2 = "品名编号 = '" & dr("品名编号") & "' And 日期 <= #" & d1 & "# And 部门 Like '出库*'"
    dr("账面库房数量_上月库房完好") = DataTables("出入库").Compute("Sum(核算数量)",s1) - DataTables("出入库").Compute("Sum(核算数量)",s2) --------数据应来自盘点表
    dr("账面库房数量_月末库存") = dr("账面库房数量_本月入库") + dr("账面库房数量_上月库房完好") - dr("账面库房数量_本月出库")
Next

我不太懂，数据验证不对。

请您举例说明哪里不对，正确的结果是什么，怎么的来的，错误的结果又是什么。

出入库按这个条件分组统计
此主题相关图片如下：未命名1.jpg

正确的数

2011.11纯牛奶 入库 30      出库 30          库房完好数量  4

2011.11小打包桶 入库 30   出库  200      库房完好数量 5

2010.10纯牛奶 入库 30  出库  0       库房完好数量   10

2010.10 小打包桶  入库  0   出库  0    库房完好数量 7

盘点的图
此主题相关图片如下：未命名4.jpg

错误的数

这是出错的表
此主题相关图片如下：未命名5.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:餐饮双单位库房－成本 v1.0.rar

新的一天

大概做了一下，你根据需要修改吧，里面的代码，你应该都能理解：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目181.rar

提示：

1、对于与计算机来说，2和２是两回事，输入数据要规范

2、你原来的表出入库表中的数据是2009年的，不是2011年的。