Foxtable(狐表)用户栏目专家坐堂 → 代码不执行? 》Syscmd.Edit.Cut


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

主题:代码不执行? 》Syscmd.Edit.Cut

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


加好友 发短信
等级:童狐 帖子:252 积分:1355 威望:0 精华:0 注册:2009/4/5 13:06:00
  发帖心情 Post By:2009/5/26 14:25:00 [显示全部帖子]

加上Application.Doevents呀。
如:

CurrentTable.Select(0, 0,0, CurrentTable.cols.Count - 1)
CurrentTable.Focus 
Syscmd.Edit.Cut() '诺没有下一行代码可以完成剪切~
Application.Doevents
CurrentTable.Select(1, 0, 1, CurrentTable.cols.Count - 1) '为何加上这一行代码后,不能剪切??

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


加好友 发短信
等级:童狐 帖子:252 积分:1355 威望:0 精华:0 注册:2009/4/5 13:06:00
  发帖心情 Post By:2009/5/26 14:27:00 [显示全部帖子]

将第一行数据剪切后粘贴到第二行。

CurrentTable.Select(0, 0,0, CurrentTable.cols.Count - 1)
CurrentTable.Focus 
Syscmd.Edit.Cut() '诺没有下一行代码可以完成剪切~
Application.Doevents
CurrentTable.Select(1, 0, 1, CurrentTable.cols.Count - 1) '为何加上这一行代码后,不能剪切??
Syscmd.Edit.Paste()

 回到顶部