主题：复制黏贴问题

老师，我想把A表中的“产品编号”、“产品名称”、“生产计划”等列复制后粘贴到A表中，粘贴行数可以任意选择，代码怎么写，望老师指教

Dim Val As Integer = 5
If InputValue(Val, "增加行", "请输入要增加的行数:") Then
    Dim t As Table = Tables("表A")
    Dim cr As Row = t.current
    For i As Integer = 1 To val
        Dim nr = t.addnew
        nr("第一列") = cr("第一列")
        nr("第二列") = cr("第二列")
    Next
End If

老师，我想从表A粘贴到表B,上述代码应该怎么改啊，我改了几次都不行，请老师再次指教，谢谢

Dim Val As Integer = 5
If InputValue(Val, "增加行", "请输入要增加的行数:") Then
    Dim t As Table = Tables("表A")
    Dim cr As Row = t.current
    For i As Integer = 1 To val
        Dim nr = Tables("表B").addnew
        nr("第一列") = cr("第一列")
        nr("第二列") = cr("第二列")
    Next
End If

麻烦问一下，点击哪个表就以对哪个表可以增加想增加的行数是怎么修改代码？？

老师：你这种增加行速度可慢了。

 

Dim Val As Integer = 5
If InputValue(Val, "增加行", "请输入要增加的行数:") Then
    Dim t As Table = CurrentTable
    Dim cr As Row = t.current
    For i As Integer = 1 To val
        Dim nr = CurrentTable.addnew
        nr("第一列") = cr("第一列")
        nr("第二列") = cr("第二列")
    Next
End If

 

你datacolchanged事件是不是写有代码？试试改成

 

Dim Val As Integer = 5
If InputValue(Val, "增加行", "请输入要增加的行数:") Then
    Dim t As Table = CurrentTable
    Dim cr As Row = t.current
    systemready = False
    For i As Integer = 1 To val
        Dim nr = CurrentTable.DataTable.addnew
        nr("第一列") = cr("第一列")
        nr("第二列") = cr("第二列")
    Next
    systemready = True
End If