主题：逻辑列的复制请教

有一“采购计划表”，数据是复制“定单明细表”里面的数据，其中“仓库评审”是逻辑列，请问怎么修改代码

For Each dr As DataRow In DataTables("定单明细").Select("")
    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

Tables("采购计划").Filter="仓库评审=False"