主题：[求助]如何循环复制??

如何根据某列中的值循环赋值

参考代码

 

Dim r As Row = Tables("表A").current
Dim count As Integer = r("第三列")
For i As Integer = 1 To count-1
    Dim nr As Row = Tables("表a").addnew
    nr("第一列") = r("第一列")
    nr("第二列") = r("第二列")
    nr("第三列") = r("第三列")
Next

谢谢 

能不能不要选择性的复制啊  可不可以点击按钮后全部复制???

要不要记录是否已经复制过的啊？

 

Dim drs As List(Of DataRow) = DataTables("表A").Select("")
For Each dr As DataRow In drs
    Dim count As Integer = val(dr("第三列"))
    For i As Integer = 1 To count-1
        Dim nr As Row = Tables("表A").addnew
        nr("第一列") = dr("第一列")
        nr("第二列") = dr("第二列")
        nr("第三列") = dr("第三列")
    Next
Next

好了 非常感谢