Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表达式不产生值


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

主题：表达式不产生值
帅哥，在线噢！
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/16 23:54:00 [显示全部帖子]

没有冲突。

If e.DataRow("工序") = "线切割" And e.DataRow("工步") = "割R角" Then '里面的代码只有符合这2个条件才会计算
  Select Case e.DataCol.Name
    Case "直径" , "直径高度" , "线切割引线长度" , "钱切割加工速度"
if e.DataRow("钱切割加工速度") = 0 then
e.DataRow("单工步加工时间") = 0
else
           e.DataRow("单工步加工时间") = (e.DataRow("直径") * 3.14 * e.DataRow("直径高度") / 4 + e.DataRow("线切割引线长度")) / e.DataRow("钱切割加工速度")
end if
    Case "单工步加工时间" , "加工单价", "单工步线切割穿孔数量", "线切割穿孔单价"
           e.DataRow("单工步加工费") = e.DataRow("单工步加工时间") * e.DataRow("加工单价") + e.DataRow("单工步线切割穿孔数量") * e.DataRow("线切割穿孔单价")
End Select
    
End If

另外检查一下有没有表达式列：http://www.foxtable.com/webhelp/topics/2381.htm
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/20 12:24:00 [显示全部帖子]

【原来的子表工步时间小计 变化后，必然会导致加工费小计的变化】 -- 没看到有这方面的代码，在哪？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/20 13:47:00 [显示全部帖子]

把这个事件的完整代码发上来

 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/20 14:32:00 [显示全部帖子]

加代码调试一下，看看提示框都弹出哪些？

msgbox(e.DataCol.Name)
Select Case e.DataCol.Name
   Case "材料费小计", "加工费小计", "刷新"
msgbox("工序号=" & e.DataRow("工序号"))
    Dim pr As DataRow
      pr = DataTables("零件加工报价系统_Table3").Find("工序号 = '" & e.DataRow("工序号") & "'")
      If pr IsNot Nothing Then
      DataTables("零件加工报价系统_Table3").DataCols("工序号").RaiseDataColChanged(pr)
 End If
End Select
 回到顶部
帅哥，在线噢！
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/20 14:56:00 [显示全部帖子]

去修改单工步加工时间看都弹出什么提示？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/20 15:36:00 [显示全部帖子]

再调试一下

msgbox(e.DataCol.Name)
Select Case e.DataCol.Name
   Case "材料费小计", "加工费小计", "刷新"
msgbox("工序号=" & e.DataRow("工序号"))
    Dim pr As DataRow
      pr = DataTables("零件加工报价系统_Table3").Find("工序号 = '" & e.DataRow("工序号") & "'")
      If pr IsNot Nothing Then
msgbox("pr IsNot Nothing")
      DataTables("零件加工报价系统_Table3").DataCols("工序号").RaiseDataColChanged(pr)
 End If
End Select


父表DataColChanged   
msgbox("父表：" & e.DataCol.Name)
Select Case e.DataCol.Name 
Case "工序号"
msgbox(11)
   e.DataRow("估工") = DataTables("零件加工报价系统_Table4").Compute("Sum(工步时间小计)/60", "[工步号] Like '" & e.DataRow("工序号") & "-*'")
msgbox(12)
End Select
 回到顶部
帅哥，在线噢！
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/20 15:43:00 [显示全部帖子]

这句不是代码啊，去掉。这种基本的错误还是要学会自己分辨一下吧
[此贴子已经被作者于2023/10/20 15:43:10编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/20 15:48:00 [显示全部帖子]

看不清什么东西

 回到顶部
帅哥，在线噢！
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/20 16:08:00 [显示全部帖子]

提示很明显了，没有“估工”这个列名啊

 回到顶部
帅哥，在线噢！
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107648 积分：547549 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/20 16:49:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
总数 26 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询