主题：[求助]如果表A 逻辑列为true 把指定列写到表B

如果表A的逻辑列为true ,哪么把表A的  制版厂家 制版成本 订单日期 列  写到表B 

老师帮我改下。我代码没写对。

If e.DataCol.Name = "需要制版" Then '如果需要制版列的内容变动
    Dim cr As DataRow
    Dim cr As DataRow = DataTables("制版明细") Then
    If e.NewValue = True Then '而且变动后的值是True(已勾选)
        Dim cr As Row = Tables("制版明细").AddNew
        e.DataRow("制版厂家")= cr("制版厂家")
        e.DataRow("制版成本")= cr("制版成本")
        e.DataRow("订单日期")= cr("订单日期")
        cr.Save
    End If
End If

If e.DataCol.Name = "需要制版" Then '如果需要制版列的内容变动
    If e.DataRow("需要制版") = True Then '而且变动后的值是True(已勾选)
        Dim cr As Row = Tables("制版明细").AddNew
        cr("制版厂家") = e.DataRow("制版厂家")
        cr("制版成本") = e.DataRow("制版成本")
        cr("订单日期") = e.DataRow("订单日期")
        cr.Save
    End If
End If