Foxtable(狐表)用户栏目专家坐堂 → 复制黏贴问题


  共有2347人关注过本帖树形打印复制链接

主题:复制黏贴问题

帅哥哟,离线,有人找我吗?
huaqing8828
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:1147 威望:0 精华:0 注册:2016/9/12 14:50:00
复制黏贴问题  发帖心情 Post By:2018/5/30 21:48:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:1147 威望:0 精华:0 注册:2016/9/12 14:50:00
  发帖心情 Post By:2018/6/2 22:23:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
白国栋
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:177 积分:1718 威望:0 精华:0 注册:2017/3/26 10:20:00
  发帖心情 Post By:2018/7/5 22:26:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
白国栋
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:177 积分:1718 威望:0 精华:0 注册:2017/3/26 10:20:00
  发帖心情 Post By:2018/7/5 22:33:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部