我想把 统计窗口_Table1 表里的内容，点击按钮 复制到 计划表 ，我用了以下代码出现错误，请老师帮忙修改，谢谢！！！

Dim r As Row = Tables("统计窗口_Table1").Current
Dim dr As DataRow  = DataTables("计划表").Find("产品型号 = \'" & r("产品型号") & "\' And 数量 = \'"  & r("需求数量") & "\'")
If dr Is Nothing Then
    dr = DataTables("生产计划表").Find("产品型号 Is NUll And 产品型号 Is NuLL")
    If dr Is Nothing Then
        dr = DataTables("生产计划表").AddNew
    End If
    dr("产品型号") = r("产品型号")
    dr("数量") = r("需求数量")
    dr("下单员") = user.name
    dr("下单日期") = Date.today
End If

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

谢谢 blackzhu 我的问题已基本解决，

如果要复制统计窗口_Table1的所有行要如何修改代码