主题：求助! 用代码执行自动复制行的问题

 If e.DataRow("节点") = 1 Then

            Dim nma() As String = {"客户编号"} 'A表数据来源列

            Dim nmb() As String = {"客户编号"} 'B表数据接收列

            Dim dr As DataRow = DataTables("报价单").find("客户编号='" & e.datarow("客户编号") & "'")

            if dr is nothing then

            dr = DataTables("报价单").AddNew

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

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

            Next

            end if

         End if