主题：按钮代码求助（C版请进，又出问题了）

C版，您看看如下行吗？

父表“生产工序”/"图号","名称","派工单号","工序_序号","工序_班组" 关联子表“生产工艺”/"图号","名称","派工单号","工序_序号","工序_班组"

生产工艺DataColChanged事件加入如下代码：

Dim dr As DataRow

Dim pr As DataRow = dr.GetParentrow("生产工序")

If e.DataCol.Name = "工艺工时_准结" OrElse e.DataCol.Name = "工艺工时_加工" OrElse e.DataCol.Name = "完成工时_准结" OrElse e.DataCol.Name = "完成工时_加工" OrElse e.DataCol.Name = "实用工时" OrElse e.DataCol.Name = "成本_工资元" OrElse e.DataCol.Name = "成本_加工费元" OrElse e.DataCol.Name = "工废损失" Then '如果修改了数量

    If pr IsNot Nothing Then '如果找到

        DataTables("生产工序").DataCols("图号").RaiseDataColChanged(pr) '针对该行的分类列,触发DataColChanged事件.

    End If

End If

生产工序DataColChanged事件被触发代码：

Dim str As String = "图号 = '" & dr("图号") & "' And 工序_序号 = '" & dr("工序_序号") & "' And 派工单号 = '" & dr("派工单号") & "'And 状态 = '执行'"

if e.DataCol.Name = "图号" OrElse e.DataCol.Name = "工序_序号" OrElse e.DataCol.Name = "派工单号"   Then

    Dim r As DataRow = dt.Find(str)

    if r IsNot Nothing Then

        dr("成本_加工") = (dt.Compute("Sum(成本_加工费元)",str))

        dr("成本_工资") = (dt.Compute("Sum(成本_工资元)",str))

        dr("工艺工时_准结") = (dt.Compute("Sum(工艺工时_准结)",str))

        dr("工艺工时_加工")=(dt.Compute("Sum(工艺工时_加工)",str))

        dr("完成工时_准结")=(dt.Compute("Sum(完成工时_准结)",str))

        dr("完成工时_加工")=(dt.Compute("Sum(完成工时_加工)",str))

        dr("工废损失")=(dt.Compute("Sum(工废损失)",str))

        dr("实用工时")=(dt.Compute("Sum(实用工时)",str))

    End If

End If