Foxtable(狐表)用户栏目专家坐堂 → 条件汇总


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

主题:条件汇总

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


加好友 发短信
等级:六尾狐 帖子:1297 积分:8762 威望:0 精华:0 注册:2017/10/12 13:00:00
条件汇总  发帖心情 Post By:2018/10/10 12:42:00 [只看该作者]

 老师,我的条件中加工次数同一批次如果不两次加工加工次数就是空白的,如果有重复加工就需要在加工次数增加一个代号,加工加工次数条件之后加工次数空白的就没法正常统计了(如图里的加工次数为空白的就是之后做的,这个批次分两次做的,一次就65,第二次是24件,65件已全部做完),如图1.

 

If e.DataCol.Name  = "成品编码" OrElse e.DataCol.Name = "生产批次" OrElse e.DataCol.Name  = "加工工序" OrElse e.DataCol.Name  = "使用设备" OrElse e.DataCol.Name  = "加工次数"  Then
    Dim Filter As String = "[成品编码] = '" & e.DataRow("成品编码") & "' and [生产批次] = '" & e.DataRow("生产批次") & "' and [加工工序] = '" & e.DataRow("加工工序") & "' and [使用设备] = '" & e.DataRow("使用设备")& "' and [加工次数] = '" & e.DataRow("加工次数")  & "'"
    e.DataRow("合格品") = DataTables("工序跟踪表").SQLCompute("Sum(合格品)", Filter)
End If


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:22683 积分:115687 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/10 14:07:00 [只看该作者]

……& "' and ([加工次数] = '" & e.DataRow("加工次数")  & "' or [加工次数] is null)"

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


加好友 发短信
等级:六尾狐 帖子:1297 积分:8762 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2018/10/10 14:22:00 [只看该作者]

老师,出现异常提示!!还是不能计算结果

If e.DataCol.Name  = "成品编码" OrElse e.DataCol.Name = "生产批次" OrElse e.DataCol.Name  = "加工工序" OrElse e.DataCol.Name  = "使用设备" OrElse e.DataCol.Name  = "加工次数"  Then
    Dim Filter As String = "[成品编码] = '" & e.DataRow("成品编码") & "' and [生产批次] = '" & e.DataRow("生产批次") & "' and [加工工序] = '" & e.DataRow("加工工序") & "' and [使用设备] = '" & e.DataRow("使用设备")& "' and ([加工次数] = '" & e.DataRow("加工次数")  & "' or [加工次数] is null)"  & "'"
    e.DataRow("合格品") = DataTables("工序跟踪表").SQLCompute("Sum(合格品)", Filter)
End If

 


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


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


加好友 发短信
等级:版主 帖子:70829 积分:355243 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/10 14:36:00 [只看该作者]

Dim Filter As String = "[成品编码] = '" & e.DataRow("成品编码") & "' and [生产批次] = '" & e.DataRow("生产批次") & "' and [加工工序] = '" & e.DataRow("加工工序") & "' and [使用设备] = '" & e.DataRow("使用设备")& "' and ([加工次数] = '" & e.DataRow("加工次数")  & "' or [加工次数] is null)"
e.DataRow("合格品") = DataTables("工序跟踪表").SQLCompute("Sum(合格品)", Filter)

 回到顶部
帅哥,在线噢!
y2287958
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2990 积分:22552 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2018/10/10 14:37:00 [只看该作者]

 Dim Filter As String = "[成品编码] = '" & e.DataRow("成品编码") & "' and [生产批次] = '" & e.DataRow("生产批次") & "' and [加工工序] = '" & e.DataRow("加工工序") & "' and [使用设备] = '" & e.DataRow("使用设备") & "' and ([加工次数] = '" & e.DataRow("加工次数")  & " or [加工次数] is null)"

[此贴子已经被作者于2018/10/10 14:37:02编辑过]

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


加好友 发短信
等级:六尾狐 帖子:1297 积分:8762 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2018/10/10 18:28:00 [只看该作者]

没有错误提示了,但是原先有数据的现在汇总都是空白的

 回到顶部
帅哥,在线噢!
y2287958
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2990 积分:22552 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2018/10/10 19:27:00 [只看该作者]

想解决问题就得上例子

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:70829 积分:355243 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/10 19:41:00 [只看该作者]

做个例子发上来测试

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


加好友 发短信
等级:六尾狐 帖子:1297 积分:8762 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2018/10/11 21:07:00 [只看该作者]

请老师帮忙看看,批次号AF54


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:70829 积分:355243 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/11 21:10:00 [只看该作者]

项目发上来测试

 回到顶部
总数 14 1 2 下一页