主题：[求助]这个代码怎么改?

 For Each ld As DataRow In DataTables("采购订单").DataRows

            For Each dr1 As DataRow In DataTables("供货预报数").Select("[材料编号] = '" & ld("材料编号")  & "'And 供货地点 Is Not Null", "供货地点 DESC")

                Dim dr2 As DataRow = DataTables("采购订单").AddNew()

                dr2("船期")=e.Form.Controls("DateTimePicker1").Value

                dr2("材料编号") = dr1("材料编号")

                dr2("供货地点") = dr1("供货地点")

            Next

        Next

   采购订单 多条数据  供货预报数也是多条数据    找到后将供货预报数的数据填充到采购订单,但是在采购订购中是新增的.

能不能先填充到已有数据  不够的再新增?