主题：请高手指教

Select Case e.DataCol.Name

    Case "件1名称"

        Dim r1 As Row

        Dim r As Row = Tables("表B").AddNew()

        r1 = Tables("表A").Current

        r("名称")=r1("件1名称")

        r("规格")=r1("规格")

        r("数量")=r1("数量")

End Select

Select Case e.DataCol.Name

    Case "件2名称"

        Dim r1 As Row

        Dim r As Row = Tables("表B").AddNew()

        r1 = Tables("表A").Current

        r("名称")=r1("件2名称")

        r("规格")=r1("规格")

        r("数量")=r1("数量")

End Select

Select Case e.DataCol.Name

    Case "件3名称"

        Dim r1 As Row

        Dim r As Row = Tables("表B").AddNew()

        r1 = Tables("表A").Current

        r("名称")=r1("件3名称")

        r("规格")=r1("规格")

        r("数量")=r1("数量")

End Select

Select Case e.DataCol.Name

    Case "件1名称","件2名称","件3名称","规格","数量"

        DataTables("表B").DataRows.Clear()

        Dim nms() As String = {"件1名称","件2名称","件3名称"}

        For Each dr1 As DataRow In DataTables("表A").DataRows()

            For Each nm As String In nms

                If dr1.IsNull(nm) = False

                    Dim dr2 As DataRow = DataTables("表B").AddNew()

                    dr2("名称") = dr1(nm)

                    dr2("规格") = dr1("规格")

                    dr2("数量") = dr1("数量")

                End If

            Next

        Next

End Select