主题：DataTables表中逻辑列勾选

DataTables（A）和 DataTables（B）组成查询表数据复制到Tables（C）表  DataTables（B）表中的逻辑列自动勾选的代码怎么写

If Forms("入库物资导入").Opened = True Then
    Dim r As Row = Tables("入库明细").Current
    Dim r1 As Row = Tables("入库物资导入_Table1").Current
    r("品名") = r1("品名")
    r("材质") = r1("材质")
    r("规格") = r1("规格")
    r("长度") = r1("长度")
    r("产地") = r1("产地")
    r("入库数量") = r1("采购件数")
    r("入库重量") = r1("采购重量")
    
    
    DataTables("采购计划明细表").ColSel("入库审核") = True
   
    Forms("入库物资导入").close
    
    
End If