Foxtable(狐表) → 用户栏目 → 专家坐堂 → [已完成，感谢狐狸爸爸]调用统计或查询表的数据


  共有13369人关注过本帖树形打印复制链接

主题：[已完成，感谢狐狸爸爸]调用统计或查询表的数据
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/11/25 11:39:00 [显示全部帖子]

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:餐饮双单位库房－成本 v1.0.rar
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：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

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/11/26 10:19:00 [显示全部帖子]

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

 
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/11/26 12:18:00 [显示全部帖子]

请您举例说明哪里不对，正确的结果是什么，怎么的来的，错误的结果又是什么。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/11/27 10:12:00 [显示全部帖子]

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

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目181.rar

提示：

 

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

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

[此贴子已经被作者于2011-11-27 10:13:16编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 7 次数据查询