Foxtable(狐表)用户栏目专家坐堂 → 求和结果不显示


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

主题:求和结果不显示

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/12 10:53:00 [显示全部帖子]

代码没问题。你手动输入合格品等列的数据,能否触发datacolchanged事件计算?
[此贴子已经被作者于2018/3/12 10:53:40编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/12 11:08:00 [显示全部帖子]

以下是引用nuoyan88在2018/3/12 11:02:00的发言:
是的,代码是没有问题的,因为我是在明细里汇总的,如果明细里没有为0时,他结果不计算 ,不知道 是不是因为0值,所以不计算

 

你用的如果是表达式列,看看 http://www.foxtable.com/webhelp/scr/0602.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/12 11:58:00 [显示全部帖子]

If e.DataCol.Name  = "成品编码" OrElse e.DataCol.Name = "生产批次" OrElse e.DataCol.Name  = "加工工序" OrElse e.DataCol.Name  = "使用设备" Then
    Dim Filter1 As String = "[成品编码] = '" & e.DataRow("成品编码") & "' and [生产批次] = '" & e.DataRow("生产批次") & "' and [加工工序] = '" & e.DataRow("加工工序") & "' and [使用设备] = '" & e.DataRow("使用设备")  & "'"
    Dim sum1 = DataTables("过程异常明细").SQLCompute("Sum(长期不良)", Filter1)
    Dim Filter2 As String = "[成品编码] = '" & e.DataRow("成品编码") & "' and [生产批次] = '" & e.DataRow("生产批次") & "' and [加工工序] = '" & e.DataRow("加工工序") & "' and [使用设备] = '" & e.DataRow("使用设备")  & "'"
    Dim sum2 = DataTables("过程异常明细").SQLCompute("Sum(短期不良)", Filter2)
    e.DataRow("不合格品") = sum1 + sum2
End If

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/12 12:02:00 [显示全部帖子]

以下是引用nuoyan88在2018/3/12 12:00:00的发言:
回复4楼,老师,不是表达式列耶
图片点击可在新窗口打开查看此主题相关图片如下:3.jpg

 

代码没问题,你的datacolchanged事件触发了没有?想办法触发。

 

不然,上传实例说明你的问题


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/12 12:12:00 [显示全部帖子]

1、重置列能否计算?

 

2、想办法触发datacolchanged事件。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/12 14:49:00 [显示全部帖子]

1、

 

Dim dr As DataRow = e.DataRow
Dim tian As Integer = DataTables("工序跟踪表").SQLGetValues("开始日期","生产批次='" & dr("生产批次") & "' and 加工工序='" & dr("加工工序") & "' and 成品编码='" & dr("成品编码") & "'").Count
dr ("实际完成日期") =dr ("开始日期") .adddays(tian + dr ("待加工小时数")/24)

 

改成

 

If e.DataCol.Name  = "成品编码" OrElse e.DataCol.Name = "生产批次" OrElse e.DataCol.Name  = "加工工序"
    Dim dr As DataRow = e.DataRow
    Dim tian As Integer = DataTables("工序跟踪表").SQLGetValues("开始日期","生产批次='" & dr("生产批次") & "' and 加工工序='" & dr("加工工序") & "' and 成品编码='" & dr("成品编码") & "'").Count
    dr ("实际完成日期") =dr ("开始日期") .adddays(tian + dr ("待加工小时数")/24)
End If

 

2、重置列 【合计品】

 

图片点击可在新窗口打开查看


 回到顶部