| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 能实现连续复制table控件里五条记录，粘到excel里吗？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132041) |
| -- 作者：xxfoxtable -- 发布时间：2019/3/12 15:52:00 -- 能实现连续复制table控件里五条记录，粘到excel里吗？ 只能五条以内，能做到吗？如果能，怎么写代码？ |
| -- 作者：有点甜 -- 发布时间：2019/3/12 15:56:00 -- 1、请具体说明你要做什么功能；
2、你框选几行数据，然后执行复制，不就行了？ CurrentTable.EditCopy |
| -- 作者：xxfoxtable -- 发布时间：2019/3/13 12:06:00 -- 客户不想让员工复制太多，只限制复制五行以内 |
| -- 作者：有点甜 -- 发布时间：2019/3/13 12:35:00 -- 以下是引用xxfoxtable在2019/3/13 12:06:00的发言：
客户不想让员工复制太多，只限制复制五行以内
判断一下选择的行数
msgbox(CurrentTable.BottomPosition-CurrentTable.TopVisibleRow)
|
| -- 作者：xxfoxtable -- 发布时间：2019/3/19 11:34:00 -- 是不是得设置成副本表，要不没有事件？ |
| -- 作者：有点甜 -- 发布时间：2019/3/19 12:12:00 -- 以下是引用xxfoxtable在2019/3/19 11:34:00的发言：
是不是得设置成副本表，要不没有事件？
不需要，主表的事件代码、副本的事件代码，都可以写到【表属性】里面去。 |
| -- 作者：xxfoxtable -- 发布时间：2019/3/20 23:10:00 -- 编译后table控件的复制功能，要自己写代码吗？ |
| -- 作者：有点蓝 -- 发布时间：2019/3/21 8:43:00 -- Tables("表A").EditCopy |
| -- 作者：xxfoxtable -- 发布时间：2019/3/22 12:54:00 -- 老师能给做个例子吗？难度大，没实现了 |
| -- 作者：有点甜 -- 发布时间：2019/3/22 15:47:00 -- Dim n = CurrentTable.BottomPosition - CurrentTable.TopPosition If n > 5 Then msgbox("最多5行") Else CurrentTable.EditCopy msgbox("已经拷贝") End If |