主题：增加行

想改成如果“材料标准”=“多种”，则

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)

其他的材料标准，除了上面的以外，都在增加一项

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

怎么改？

Select Case e.DataCol.name

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

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

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

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

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

        Else

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

                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)

            End If

            If e.DataRow("材料标准") = "国标" Then

                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("编制人") = e.DataRow("编制人")

                ndr.Move(0)

            End If

            If e.DataRow("材料标准") = "国网" Then

                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("编制人") = e.DataRow("编制人")

                ndr.Move(0)

            End If

            If e.DataRow("材料标准") = "南网" Then

                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("编制人") = e.DataRow("编制人")

                ndr.Move(0)

            End If

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

                Dim cnt As Integer = DataTables("角钢进料表明细").Compute("count(进料表编号)","进料表编号 = '" & e.DataRow("进料表编号") & "'and (U8出库=false and 处置_重派=false)")                                                                                          

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

                cnt  = DataTables("角钢进料表明细").Compute("count(进料表编号)","进料表编号 = '" & e.DataRow("进料表编号") & "'and (未发数量 > 0 or 未发数量 is null)")

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

            End If

        End If

End Select

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

……