主题：复制表

我想把 统计窗口_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

统计窗口_Table1   是个数据统计窗口

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

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