主题：逻辑列的复制请教

这个意思？

For Each dr As DataRow In DataTables("定单明细").Select("仓库评审=False")
    Dim fdr As DataRow = DataTables("采购计划").Find("定单号 = '" & dr("定单号") & "' and 物料编号 = '" & dr("物料编号")   & "'")
    If fdr Is Nothing Then
        fdr = DataTables("采购计划").AddNew()
        fdr("定单号") = dr("定单号")
        fdr("物料编号") = dr("物料编号")
    End If
   
    fdr("物料名称") = dr("物料名称")
    fdr("规格型号") = dr("规格型号")
    fdr("用料系数") = dr("用料系数")
    fdr("订单需求") = dr("订单需求")
    fdr("定单数量") = dr("定单数量")
    fdr("库存数量") = dr("库存数量")
    fdr("最低库存") = dr("最低库存")
    fdr("仓库评审") = dr("仓库评审")
Next