谁会做这个统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2966人关注过本帖树形打印复制链接主题：谁会做这个统计

大红袍

小大 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

下一主题 >> << 上一主题

主题：谁会做这个统计