Foxtable(狐表)用户栏目专家坐堂 → 谁会做这个统计


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

主题:谁会做这个统计

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/18 18:32:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/18 20:24:00 [显示全部帖子]

 1、sql语句没问题;

 

 2、如要用代码做,参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=22963&skin=0

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/18 20:35:00 [显示全部帖子]

1、汗

 

http://www.foxtable.com/help/topics/0695.htm

 

2、你不加入条件,就是统计所有的月。几年前的东西,你到现在还没消化么


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/18 20:58:00 [显示全部帖子]

代码4楼已经给出,一样的意思,改改用就行。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/19 19:59:00 [显示全部帖子]

 1、设置数据源。

 

q.ConnectionName = "外部数据源名称"

 

 2、你自己根本就没有做,你这个比原来那个还简单啊,即便做了你也看不懂啊。如果你有做,贴出你写好的代码。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/19 20:16:00 [显示全部帖子]


DataTables("统计").DataRows.Clear
Dim Arys As List(Of String())
Arys = DataTables("入仓").GetValues("月份|型号|规格")
For Each Ary As String() In Arys
    Dim r As Row = Tables("统计").AddNew
    r("月份") = Ary(0)
    r("型号") = Ary(1)
    r("规格") = Ary(2)
Next
Dim dt As DataTable = DataTables("入仓")
Dim dt1 As DataTable = DataTables("出仓")

For Each dr As DataRow In DataTables("统计").DataRows
    Dim Filter As String = "型号 = '" & dr("型号") & "' and 规格 = '" & dr("规格") & "'"
    dr("上月结存") = dt.Compute("Sum(入仓)",Filter & " And 月份 < '" & dr("月份") & "'") - dt1.Compute("Sum(出仓)",Filter & " And 月份 < '" & dr("月份") & "'")
    dr("本月入仓") = dt.Compute("Sum(入仓)",Filter & " And 月份 = '" & dr("月份") & "'")
    dr("本月出仓") = dt1.Compute("Sum(出仓)",Filter & " And 月份 = '" & dr("月份") & "'")
    dr("本月结存") = dr("上月结存") + dr("本月入仓") - dr("本月出仓")
Next


 


 回到顶部