- 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)
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2023/10/16 10:24:00
--
接上楼 ，子表的加工费小计累计数据与父表的工序加工费有时候不一致，我是通过子表的零件数量等驱动到加工费小计，再驱动到父表
-- 发布时间：2023/10/16 10:36:00
--
请上传实例说明
-- 发布时间：2023/10/16 14:56:00
--
密码为空格键
-- 发布时间：2023/10/16 15:06:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生产管理.table |
-- 发布时间：2023/10/16 15:09:00
--
20171030-01.mdb 文件无法上传？
-- 发布时间：2023/10/16 15:13:00
--
开发者密码 20000109
另外 20171030-01.mdb 文件无法上传 |