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


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

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


加好友 发短信
等级：童狐 帖子：299 积分：1939 威望：0 精华：0 注册：2011/3/9 18:17:00 		  发帖心情 Post By：2012/3/16 14:08:00 [只看该作者]

保存代码时有提示：

编译错误：应为表达式

错误代码：Dim dr0 As DataRow = = DataTables("统计").AddNew()
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251060 威望：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(加工数量)")

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


加好友 发短信
等级：童狐 帖子：299 积分：1939 威望：0 精华：0 注册：2011/3/9 18:17:00 		  发帖心情 Post By：2012/3/16 14:43:00 [只看该作者]

师傅你好：

上述按钮代码保存执行后，加工数量列没有数字显示。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/3/16 14:48:00 [只看该作者]

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

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


加好友 发短信
等级：管理员 帖子：47448 积分：251060 威望：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) & "'")

 

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

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