- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [已完成，感谢狐狸爸爸]调用统计或查询表的数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14600)
-- 发布时间：2011/11/25 10:43:00
-- [已完成，感谢狐狸爸爸]调用统计或查询表的数据
如何调用统计或查询表的数据？下载文件在 14楼
[此贴子已经被作者于2011-11-27 12:42:35编辑过]
-- 发布时间：2011/11/25 11:06:00
--
将同年同月的统计数据填到库存表中?
-- 发布时间：2011/11/25 11:30:00
--
是不是应该把问题说成 动态生成和绑定 呀
-- 发布时间：2011/11/25 11:39:00
--
你的表结构设计得不太好，做起来费力：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:餐饮双单位库房－成本 v1.0.rar |
-- 发布时间：2011/11/25 12:40:00
--
此主题相关图片如下：未命名.jpg
怎么回事,刚才仔细看了一下，库存完全不对呀？
[此贴子已经被作者于2011-11-25 17:28:53编辑过]
-- 发布时间：2011/11/25 17:32:00
--
11月纯牛奶入库应该30，上月库房完好4，对不上呀
-- 发布时间：2011/11/25 17:33:00
--
呼叫狐狸爸爸，呼叫狐狸爸爸，再帮我看看
-- 发布时间：2011/11/25 17:46:00
--
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
-- 发布时间：2011/11/26 9:32:00
--
真难为狐狸爸爸，我的是单位的实际需要做的，表结构不好，foxtable这么强大，不过我想还是可以实现的，鉴于我是新手，自己还看不懂代码，还请高手在帮看看。
1】 按年月、品名、部门分类汇总入库、出库、盘点，回填到库存表中。
2】 其中“账面库房数量_上月库房完好”数据来自于盘点表的“库房_完好数量”
8楼的代码还是不对，我也在努力学习中。
-- 发布时间：2011/11/26 9:44:00
--
这是我实际中的表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:book1.xls |