以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码不执行？ 》Syscmd.Edit.Cut  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2918)
--  作者：mr725
--  发布时间：2009/5/26 12:19:00
--  代码不执行？ 》Syscmd.Edit.Cut
CurrentTable.Select(0, 0,0, CurrentTable.cols.Count - 1)
CurrentTable.Focus 
Syscmd.Edit.Cut() \'诺没有下一行代码可以完成剪切～
CurrentTable.Select(1, 0, 1, CurrentTable.cols.Count - 1) \'为何加上这一行代码后，不能剪切？？
--  作者：狐狸爸爸
--  发布时间：2009/5/26 12:20:00
--  
正常的。
这个后面不能有代码的。
--  作者：mr725
--  发布时间：2009/5/26 12:26:00
--  
以下是引用狐狸爸爸在2009-5-26 12:20:00的发言：
正常的。
这个后面不能有代码的。

但是，下面的可以～ ？ （剪切后 又粘贴回来）
CurrentTable.Select(0, 0,0, CurrentTable.cols.Count - 1)
CurrentTable.Focus 
Syscmd.Edit.Cut() \'诺没有下一行代码可以完成剪切～
Syscmd.Edit.Paste()  \'说明‘这个后面不能有代码的。’不成立呀～
--  作者：yangming
--  发布时间：2009/5/26 12:51:00
--  
分成二个按钮就能执行了,呵呵
--  作者：mr725
--  发布时间：2009/5/26 13:21:00
--  

正确！～  但为何要点击两次呢？如果一个按钮可以的话，下面代码不是很轻松？～
       
CurrentTable.AddNew(5) \'增加5行
CurrentTable.Select(0, 0,4, CurrentTable.cols.Count - 1) \'选中头5行
CurrentTable.Focus  
Syscmd.Edit.Copy() \'复制  ＝＝如果能复制到剪贴板就好了～ 是否就可以执行下面的粘贴？？？
                                        可是正相反，有时下面代码还会清空手工复制的内容，使得手工粘贴也无效～！
CurrentTable.Select(CurrentTable.rows.Count - 5, 0,CurrentTable.rows.Count - 1, CurrentTable.cols.Count - 1) \'选中最后5行   这条代码可以执行！～
CurrentTable.Focus 
Syscmd.Edit.Paste() \'粘贴无效！

[此贴子已经被作者于2009-5-26 14:09:57编辑过]
--  作者：mr725
--  发布时间：2009/5/26 13:46:00
--  
也许用其他办法可以完成实现5楼的要求，但如果能够实现5楼代码，将会节省很多行的代码～  其他老师有什么看法？
[此贴子已经被作者于2009-5-26 13:47:00编辑过]
--  作者：yangming
--  发布时间：2009/5/26 13:58:00
--  

我想内部命令可能有限制吧
--  作者：yangming
--  发布时间：2009/5/26 14:17:00
--  
可以试试,先筛选再填充的办法
或是在增加条件填充
dim f As New Filler
f.SourceTable = DataTables("发放记录") \'指定数据来源
f.DataTable = DataTables("发放记录") \'指定数据接收表
f.Fill() \'填充数据
--  作者：八婺
--  发布时间：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) \'为何加上这一行代码后,不能剪切??
--  作者：八婺
--  发布时间：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()