主题：代码不执行？ 》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) '为何加上这一行代码后，不能剪切？？

正常的。
这个后面不能有代码的。

但是，下面的可以～ ？ （剪切后 又粘贴回来） CurrentTable.Select(0, 0,0, CurrentTable.cols.Count - 1) CurrentTable.Focus  Syscmd.Edit.Cut() '诺没有下一行代码可以完成剪切～ Syscmd.Edit.Paste()  '说明‘这个后面不能有代码的。’不成立呀～

分成二个按钮就能执行了,呵呵

正确！～  但为何要点击两次呢？如果一个按钮可以的话，下面代码不是很轻松？～
       
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() '粘贴无效！

也许用其他办法可以完成实现5楼的要求，但如果能够实现5楼代码，将会节省很多行的代码～  其他老师有什么看法？

我想内部命令可能有限制吧

可以试试,先筛选再填充的办法
或是在增加条件填充
dim f As New Filler
f.SourceTable = DataTables("发放记录") '指定数据来源
f.DataTable = DataTables("发放记录") '指定数据接收表
f.Fill() '填充数据

加上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) '为何加上这一行代码后,不能剪切??

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

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()