主题：增加行

Select Case e.DataCol.name

    Case "进料表编号","材料标准"

        If e.DataRow.IsNull("进料表编号") Then

            DataTables("角钢进料表明细").DeleteFor("进料表编号='" & e.DataRow("进料表编号") & "'")

            e.DataRow("状态_发料完成") = False

            e.DataRow("状态_U8出库") = False

        Else

Dim ndr As Row = Tables("角钢进料表明细").AddNew

ndr("进料表编号") = e.DataRow("进料表编号")

ndr("工程名称") = e.DataRow("工程名称")

ndr("塔型") = e.DataRow("塔型")

ndr("仓储配料员") = e.DataRow("仓储配料员")

ndr("审核") = e.DataRow("审核")

ndr("编制人") = e.DataRow("编制人")

ndr.Move(0)

If e.DataRow("材料标准") <> "多种" Then

    ndr("材料标准") = e.DataRow("材料标准")

End If

If e.DataRow.GetChildRows("角钢进料表明细").Count > 0

……