主题：复制表

Dim r As Row = Tables("统计窗口_Table1").Current
Dim dr As DataRow  = DataTables("计划表").Find("产品型号 = '" & r("产品型号") & "' And 数量 = '"  & r("需求数量") & "'")
If dr Is Nothing Then
    Dim dr1 As Datarow= DataTables("生产计划表").Find("产品型号 Is NUll And 产品型号 Is NuLL")
    If dr1 Is Nothing Then

         Dim dr2 As Datarow = = DataTables("生产计划表").AddNew
    dr2("产品型号") = r("产品型号")
    dr2("数量") = r("需求数量")
    dr2("下单员") = user.name
    dr2("下单日期") = Date.today
End If

End if