主题：代码不执行？ 》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楼代码，将会节省很多行的代码～  其他老师有什么看法？

实在是高哇～ 谢谢了～～～～～～～～～～～

原来这个在帮助中有啊～～    

DoEvents语句..................

Dim r As Integer = CurrentTable.rows.Count - 1
output.show(r)
Dim i As Integer= 9   'i 由变量或文本框内容决定多少
if i <= r                    '加上这个，保证选定的行数在表的行数范围内！～
CurrentTable.Select(0, 0,i,CurrentTable.cols.Count - 1)
CurrentTable.Focus 
Syscmd.Edit.Cut()
Application.Doevents
CurrentTable.AddNew(i+1)
CurrentTable.Select(r+1, 0,r, CurrentTable.cols.Count - 1)  '也可以：CurrentTable.Select(r+1, 0）
Syscmd.Edit.Paste()
end if