以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制黏贴问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119731)
--  作者：huaqing8828
--  发布时间：2018/5/30 21:48:00
--  复制黏贴问题
老师，我想把A表中的“产品编号”、“产品名称”、“生产计划”等列复制后粘贴到A表中，粘贴行数可以任意选择，代码怎么写，望老师指教
--  作者：有点甜
--  发布时间：2018/5/30 22:04:00
--  
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
--  作者：huaqing8828
--  发布时间：2018/6/2 22:23:00
--  
老师，我想从表A粘贴到表B,上述代码应该怎么改啊，我改了几次都不行，请老师再次指教，谢谢
--  作者：有点甜
--  发布时间：2018/6/3 11:59:00
--  
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
--  作者：白国栋
--  发布时间：2018/7/5 22:26:00
--  
麻烦问一下，点击哪个表就以对哪个表可以增加想增加的行数是怎么修改代码？？
--  作者：白国栋
--  发布时间：2018/7/5 22:33:00
--  

老师：你这种增加行速度可慢了。
--  作者：有点甜
--  发布时间：2018/7/5 23:00:00
--  
以下是引用白国栋在2018/7/5 22:26:00的发言：
麻烦问一下，点击哪个表就以对哪个表可以增加想增加的行数是怎么修改代码？？

 

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

--  作者：有点甜
--  发布时间：2018/7/5 23:02:00
--  
以下是引用白国栋在2018/7/5 22:33:00的发言：

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

 

你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