主题：自动复制

If e.DataCol.Name = "数量" Then

    If e.DataRow.Isnull("数量") = False

        Dim n As Integer = e.DataRow("数量")

        Dim nma() As String = {"入库单号","名称","规格"}

        Dim nmb() As String = {"入库单号","名称","规格"}

        dim drlist as List(of datarow) = DataTables("固定资产库存").Select("入库单号='" & e.DataRow("入库单号") & "'")

        If drlist Is Nothing Then

            For i As Integer = 1 To n

                Dim dr As DataRow = DataTables("固定资产库存").AddNew()

                For j As Integer = 0 To nma.Length - 1

                    dr(nmb(j)) = e.DataRow(nma(j))

                Next

            Next

        Else

            If drlist.count>n Then

                For i As Integer=0 To drlist.count-n-1

                    drlist(i).Delete

                Next

            End If

        End If

    End If

End If

If e.DataCol.Name = "数量" Then

    If e.DataRow.Isnull("数量") = False

        Dim n As Integer = e.DataRow("数量")

        Dim nma() As String = {"入库单号","名称","规格"}

        Dim nmb() As String = {"入库单号","名称","规格"}

        dim drlist as List(of datarow) = DataTables("固定资产库存").Select("入库单号='" & e.DataRow("入库单号") & "'")

        If drlist.count <= n Then

            For i As Integer = 1 To n - drlist.count

                Dim dr As DataRow = DataTables("固定资产库存").AddNew()

                For j As Integer = 0 To nma.Length - 1

                    dr(nmb(j)) = e.DataRow(nma(j))

                Next

            Next

        Else

            For i As Integer=0 To drlist.count-n-1

                drlist(i).Delete

            Next

        End If

    End If

End If