以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  逻辑列的复制请教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=74815)
--  作者：yaojun
--  发布时间：2015/9/19 19:32:00
--  逻辑列的复制请教

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

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"
--  作者：大红袍
--  发布时间：2015/9/20 12:52:00
--  

这个意思？

 

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