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

如何调用统计或查询表的数据？下载文件在 14楼

将同年同月的统计数据填到库存表中?

是不是应该把问题说成 动态生成和绑定 呀

此主题相关图片如下：未命名.jpg

怎么回事,刚才仔细看了一下，库存完全不对呀？

11月纯牛奶入库应该30，上月库房完好4，对不上呀

呼叫狐狸爸爸，呼叫狐狸爸爸，再帮我看看

 

真难为狐狸爸爸，我的是单位的实际需要做的，表结构不好，foxtable这么强大，不过我想还是可以实现的，鉴于我是新手，自己还看不懂代码，还请高手在帮看看。

   1】 按年月、品名、部门分类汇总入库、出库、盘点，回填到库存表中。

   2】 其中“账面库房数量_上月库房完好”数据来自于盘点表的“库房_完好数量”

 

8楼的代码还是不对，我也在努力学习中。

这是我实际中的表

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

点击浏览该文件:book1.xls

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