Foxtable(狐表)用户栏目专家坐堂 → 能实现连续复制table控件里五条记录,粘到excel里吗?


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

主题:能实现连续复制table控件里五条记录,粘到excel里吗?

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


加好友 发短信
等级:七尾狐 帖子:1696 积分:15831 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2019/3/22 16:27:00 [只看该作者]

放到哪个事件里呢?经常跳出对话框,随便点表的情况下

 回到顶部
帅哥,在线噢!
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106273 积分:540494 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/22 20:39:00 [只看该作者]

把对话框的代码去掉即可,其中一个对话框是用来测试的。我们给的代码要学会看懂逻辑,而不是只会照抄

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


加好友 发短信
等级:七尾狐 帖子:1696 积分:15831 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2019/3/24 11:52:00 [只看该作者]

1、甜老师这个代码,写在哪个事件最好

2、选择时,能象excel一样整行都变色吗?目前就第一行变色

3、超过五行后,怎么强制取消多选择的行?

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/24 15:04:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


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


加好友 发短信
等级:七尾狐 帖子:1696 积分:15831 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2019/3/25 22:06:00 [只看该作者]

放到实际环境中,不是十分好用,有时候复制不了,不知道为什么,有时候选择五行了,但只复制了四行


 回到顶部
帅哥,在线噢!
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106273 积分:540494 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/25 22:27:00 [只看该作者]

使用剪贴板很容易受到系统的干扰,毕竟剪贴板是整个电脑软件都在用的。

建议还是使用遍历的方式复制数据:http://www.foxtable.com/webhelp/scr/1533.htm


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


加好友 发短信
等级:七尾狐 帖子:1696 积分:15831 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2019/3/25 23:28:00 [只看该作者]

应该不是,一定有方法,excel没受系统干扰呢

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/26 11:47:00 [只看该作者]

以下是引用xxfoxtable在2019/3/25 23:28:00的发言:
应该不是,一定有方法,excel没受系统干扰呢

 

具体出错的实例发上来,并说明测试步骤。


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


加好友 发短信
等级:七尾狐 帖子:1696 积分:15831 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2019/3/26 12:41:00 [只看该作者]

14楼的就是实例,复制五行,复制三行,反复操作,大部分时候就不成功

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/26 13:26:00 [只看该作者]

afterSelRangeChange也要写代码

 

Dim n = e.NewRange.BottomRow - e.NewRange.TopRow
If n > 4 Then
Else
    CurrentTable.EditCopy
End If


 回到顶部
总数 25 上一页 1 2 3 下一页