表达式不产生值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 Select

主题：表达式不产生值