以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 统计物品数量 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=37468) |
||||
-- 作者:mjx2018 -- 发布时间:2013/7/4 12:15:00 -- 统计物品数量 请问如何在人员表中统计出扳手和改锥的数量,需要三个表都关联还是需要代码。 |
||||
-- 作者:Bin -- 发布时间:2013/7/4 12:23:00 -- 图片挂了. |
||||
-- 作者:mjx2018 -- 发布时间:2013/7/4 12:48:00 -- 此主题相关图片如下:333.jpg 此主题相关图片如下:2222.jpg 此主题相关图片如下:111.jpg |
||||
-- 作者:mjx2018 -- 发布时间:2013/7/4 13:38:00 -- 请问如何在人员表中统计出扳手和改锥的数量? |
||||
-- 作者:don -- 发布时间:2013/7/4 13:49:00 -- 文件! |
||||
-- 作者:y2287958 -- 发布时间:2013/7/4 13:49:00 -- 用关联表吧 |
||||
-- 作者:mjx2018 -- 发布时间:2013/7/4 14:01:00 --
|
||||
-- 作者:lsy -- 发布时间:2013/7/4 14:10:00 -- Dim cmd As New SQLCommand Dim dt As DataTable cmd.CommandText = "Select b.姓名, a.客户, a.工具 , Sum(a.数量) as 数量 From {发货} a,{客户} b,{人员} c Where a.客户 = b.客户 And b.姓名 = c.姓名 Group By b.姓名, a.客户, a.工具" dt = cmd.ExecuteReader() For Each r As Row In Tables("人员").Rows For Each dr As DataRow In dt.DataRows If r("姓名") = dr("姓名") AndAlso dr("工具") = "扳手" Then r("扳手") = dr("数量") ElseIf r("姓名") = dr("姓名") AndAlso dr("工具") = "改锥" Then r("改锥") = dr("数量") End If Next Next |
||||
-- 作者:mjx2018 -- 发布时间:2013/7/4 14:35:00 -- 您好,因是初学者,您能帮忙编辑到文件中发回吗? |
||||
-- 作者:lsy -- 发布时间:2013/7/4 14:38:00 --
|