主题：复制行内容

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

狐爸我按照你的修改后还是不好用。

我又把它改为以下代码，能用，但是太慢了就相爬蜗牛一样，3000行用了30几秒时间。

求助有没更好的代码，谢谢！！！

For Each dr1 As DataRow In DataTables("统计窗口_Table1").DataRows
    If dr1("产品型号") <> Nothing Then
        Dim dr2 As DataRow = DataTables("计划表").Addnew()
       For Each dc As DataCol In DataTables("计划表").DataCols

谢谢狐爸，你的这段代码比原先的快多了，同时也谢谢程版