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

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

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

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

你的表结构设计得不太好，做起来费力：

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

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

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

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

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

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

 

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

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

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

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

 

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

这是我实际中的表

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

点击浏览该文件:book1.xls