Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复制粘贴代码不可用


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

主题：复制粘贴代码不可用
帅哥哟，离线，有人找我吗？
mr725
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2010/6/2 16:35:00 [显示全部帖子]

这样是否是个偏方？

 

dim dd as string = CurrentTable.Text(0,0)
CurrentTable.value(2,0) = dd
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2010/6/3 15:38:00 [显示全部帖子]

以下是引用lihe60在2010-6-2 22:10:00的发言：

虽然不简洁，但还是可以达到目的的。

这样呢？稍微简洁些：

Dim T as table = Currenttable
For Each c As Col In CurrentTable.Cols  '逐列复制
   T.Rows(3)(c.Name) = T.Rows(0)(c.Name)
Next

 

再说，又不是大规模运算，不需要那么简洁的～  呵呵
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2010/6/3 18:45:00 [显示全部帖子]

以下是引用狐狸爸爸在2010-6-3 16:08:00的发言：

呵呵，有的时候简洁可不意味着高效，Mr725兄的这段可不够我这段效率高，因为每次循环都要重新从集合中找出第一样和第三行。

知道了，谢谢啊～


 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2010/10/17 23:25:00 [显示全部帖子]

以下是引用bohe在2010-10-17 17:57:00的发言：

请问区域内容如何复制、粘贴，这个功能在易表中可以实现，狐表中找不到相对应的move命令。

复制命令可以完成，但粘贴找不到位置。楼主完不成也就是这个原因。

易表也可以这样啊？  不懂易表！  呵呵····图片点击可在新窗口打开查看

 

狐表中，你可以参考

TopRow:    选定区域最上边一行的位置
LectCol:   选定区域最左边一列的位置
BottomRow: 选定区域最下边一行的位置
RightCol:  选定区域最右边一列的位置　

 

结合：

syscmd.Edit.Copy()

Syscmd.Edit.Paste()

 

至于你说楼主的完不成的原因嘛，这样就哦卡啦：注意那两行绿色的句子！

CurrentTable.Select(0,0)
CurrentTable.Focus
syscmd.Edit.Copy()
Application.DoEvents
CurrentTable.Select(6,0)
Syscmd.Edit.Paste()

 

[此贴子已经被作者于2010-10-17 23:27:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2010/10/18 0:26:00 [显示全部帖子]

【没有成功过】 是什么意思呢？  不明白！！！
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2010/10/18 15:22:00 [显示全部帖子]

以下是引用bohe在2010-10-18 0:31:00的发言：

用 syscmd.Edit.Copy()，不用Application.DoEvents 不能复制

 

不管什么什么情况Syscmd.Edit.Paste()都不能粘贴

 

没sendkeys.Sendwait("^V")好用



[此贴子已经被作者于2010-10-18 0:32:21编辑过]

1、syscmd.Edit.Copy()  与 Application.DoEvents 没有关系的～ ，不知道你是如何得出这样的结论的？？？

2、Syscmd.Edit.Paste() 任何时候都不能粘贴？ 您说的太绝对了，呵呵··· 请执行17楼最后一段代码试试啊～

3、sendkeys.Sendwait("^V") 可以省去了Application.DoEvents，是个不错的选择···
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2010/10/18 20:11:00 [显示全部帖子]

这个是有些怪怪的，这样处理吧：

CurrentTable.Select(0,0,5,1)
CurrentTable.Focus
syscmd.Edit.Copy()
Application.DoEvents
CurrentTable.Select(2,2)
Syscmd.Edit.Paste()

Application.DoEvents     '还是这条，大致的效果是：之前的执行完后，再执行后面的代码::::::
MainTable =ds
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询