Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按钮统计


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

主题：按钮统计
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/3/14 15:08:00 [显示全部帖子]


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


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/3/16 11:57:00 [显示全部帖子]

设计好两个表，输入一点测试数据，然后发上来。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/3/16 14:14:00 [显示全部帖子]

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("部门", Gettype(String), 32)
dtb.AddDef("订单编号", Gettype(String), 32)
dtb.AddDef("规格尺寸", Gettype(String), 32)
dtb.AddDef("订单数量", Gettype(Integer))
dtb.AddDef("加工数量", Gettype(Integer))
dtb.AddDef("结存数", Gettype(Double),"订单数量 - 加工数量")
dtb.Build()
For Each nm() As String In DataTables("铁盘订单").GetUniqueValues("","部门","订单编号","规格尺寸")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("部门") = nm(0)
    dr("订单编号") = nm(1)
    dr("规格尺寸") = nm(2)
    dr("订单数量") = DataTables("铁盘订单").Compute("Sum(订单数量)","[部门] = '" & nm(0) & "' And [订单编号] = '" & nm(1) & "' And [规格尺寸] = '" & nm(2) & "'")
    'dr("铁盘组装") = DataTables("铁盘组装").Compute("Sum(加工数量)","[部门] = '" & nm(0) & "' And [订单编号] = '" & nm(1) & "' And [规格尺寸] = '" & nm(2) & "'")
Next
Dim dr0 As DataRow = DataTables("统计").AddNew()
dr0("部门")  = "合计"
dr0("订单数量")  = DataTables("铁盘订单").Compute("Sum(订单数量)")
dr0("加工数量")  = DataTables("铁盘组装").Compute("Sum(加工数量)")

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


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/3/16 14:48:00 [显示全部帖子]

这样的问题，你都不能解决吗？

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


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/3/16 14:49:00 [显示全部帖子]

我估计你还是解决不了：

 

'dr("铁盘组装") = DataTables("铁盘组装").Compute("Sum(加工数量)","[部门] = '" & nm(0) & "' And [订单编号] = '" & nm(1) & "' And [规格尺寸] = '" & nm(2) & "'")

 

改为：

 

dr("加工数量") = DataTables("铁盘组装").Compute("Sum(加工数量)","[部门] = '" & nm(0) & "' And [订单编号] = '" & nm(1) & "' And [规格尺寸] = '" & nm(2) & "'")

 

你来这里似乎不是学习的，只是找人免费帮忙写代码的。

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询