主题：实现数据同步

这种问题并不难，但是我建议你修改设计，采用关联的形式。

就是做成两个表，就像订单表和订单明细表一样，一个订单对应有多个订单明细。

表结构的设计，一定要清晰明了，你这种设计很不规范。

只需修改代码，将材质的条件加进去即可：

If e.DataRow.Isnull("通打计划号") = False Then
    Select Case e.DataCol.Name
        Case "半成品","成品","装窑"
            For Each dr As DataRow In e.DataTable.Select("通打计划号 = '"  & e.DataRow("通打计划号") & "' And 材质 = '"  & e.DataRow("材质") & "'")
                dr(e.DataCol.Name) = e.NewValue
            Next
        Case "合同数量"
            Dim v As Integer = e.DataTable.Compute("Sum(合同数量)","通打计划号 = '"  & e.DataRow("通打计划号") & "' And 材质 = '"  & e.DataRow("材质") & "'")
            For Each dr As DataRow In e.DataTable.Select("通打计划号 = '"  & e.DataRow("通打计划号") & "' And 材质 = '"  & e.DataRow("材质") & "'")
                dr("通打数量") = v
            Next
        Case "通打计划号","材质"
            e.DataTable.DataCols("半成品").RaiseDataColChanged(e.DataRow)
            e.DataTable.DataCols("成品").RaiseDataColChanged(e.DataRow)
            e.DataTable.DataCols("装窑").RaiseDataColChanged(e.DataRow)
            e.DataTable.DataCols("合同数量").RaiseDataColChanged(e.DataRow)
    End Select
End If

参考：

http://www.foxtable.com/help/topics/1471.htm