以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表达式不产生值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188719)

--  作者:1234567
--  发布时间:2023/10/13 13:32:00
--  表达式不产生值
Select Case e.DataCol.Name
   Case "材料费小计", "加工费小计"
    Dim pr As DataRow
      pr = DataTables("零件加工报价系统_Table3").Find("工序号 = \'" & e.DataRow("工序号") & "\'")
      If pr IsNot Nothing Then
       If DataTables("零件加工报价系统_Table3").DataCols("工序号").RaiseDataColChanged(pr) Then
     
   e.DataRow("工序材料费") = DataTables("零件加工报价系统_Table4").Compute("Sum(材料费小计)", "[工步号] like \'" & e.DataRow("工序号") & "-*\'")
   
End If
 End If
End Select

--  作者:有点蓝
--  发布时间:2023/10/13 13:48:00
--  
Select Case e.DataCol.Name
   Case "材料费小计", "加工费小计"
    Dim pr As DataRow
      pr = DataTables("零件加工报价系统_Table3").Find("工序号 = \'" & e.DataRow("工序号") & "\'")
      If pr IsNot Nothing Then
      DataTables("零件加工报价系统_Table3").DataCols("工序号").RaiseDataColChanged(pr)
 End If
case "工序号"
   e.DataRow("工序材料费") = DataTables("零件加工报价系统_Table4").Compute("Sum(材料费小计)", "[工步号] like \'" & e.DataRow("工序号") & "-*\'")
End Select

--  作者:1234567
--  发布时间:2023/10/13 14:12:00
--  
工序材料费是属于父表  DataTables("零件加工报价系统_Table3")的列,编译错误

Select Case e.DataCol.Name
   Case "材料费小计", "加工费小计"
    Dim pr As DataRow
      pr = DataTables("零件加工报价系统_Table3").Find("工序号 = \'" & e.DataRow("工序号") & "\'")
      If pr IsNot Nothing Then
      DataTables("零件加工报价系统_Table3").DataCols("工序号").RaiseDataColChanged(pr)
 End If
Case "工序号"
  DataTables("零件加工报价系统_Table3").DataRow("工序材料费") = DataTables("零件加工报价系统_Table4").Compute("Sum(材料费小计)", "[工步号] like \'" & e.DataRow("工序号") & "-*\'")
  DataTables("零件加工报价系统_Table3").DataRow("工序加工费") = DataTables("零件加工报价系统_Table4").Compute("Sum(加工费小计)", "[工步号] like \'" & e.DataRow("工序号") & "-*\'")
End Select

--  作者:有点蓝
--  发布时间:2023/10/13 14:20:00
--  
子表
Select Case e.DataCol.Name
   Case "材料费小计", "加工费小计"
    Dim pr As DataRow
      pr = DataTables("零件加工报价系统_Table3").Find("工序号 = \'" & e.DataRow("工序号") & "\'")
      If pr IsNot Nothing Then
      DataTables("零件加工报价系统_Table3").DataCols("工序号").RaiseDataColChanged(pr)
 End If
End Select

父表
Select Case e.DataCol.Name
case "工序号"
   e.DataRow("工序材料费") = DataTables("零件加工报价系统_Table4").Compute("Sum(材料费小计)", "[工步号] like \'" & e.DataRow("工序号") & "-*\'")
End Select

--  作者:1234567
--  发布时间:2023/10/16 10:24:00
--  
接上楼 ,子表的加工费小计累计数据与父表的工序加工费有时候不一致,我是通过子表的零件数量等驱动到加工费小计,再驱动到父表

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

--  作者:有点蓝
--  发布时间:2023/10/16 10:36:00
--  
请上传实例说明
--  作者:1234567
--  发布时间:2023/10/16 14:56:00
--  
密码为空格键
--  作者:1234567
--  发布时间:2023/10/16 15:06:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:生产管理.table


--  作者:1234567
--  发布时间:2023/10/16 15:09:00
--  
20171030-01.mdb  文件无法上传?
--  作者:1234567
--  发布时间:2023/10/16 15:13:00
--  
      开发者密码  20000109 
另外   20171030-01.mdb  文件无法上传