主题：为何不执行呢？

With Tables("gz")
    .Select( .Rows.Count - 1,2, .Rows.Count - 1,11)
End With

Syscmd.Edit.Delete()
窗口按钮代码
只选中不删除，为何呢，偶尔又好像能够删除，搞不懂，请教大家

Syscmd.Edit.Delete()

不能和代码混用吧

If CurrentTable.Focus Then '将输入焦点移到当前表
    CurrentTable.StartEditing '如果成功,则开始编辑.
    With CurrentTable
        .Select( .Rows.Count - 1,2, .Rows.Count - 1,11)
    End With
    Syscmd.Edit.Delete()
End If

删除选定行,用这个
With CurrentTable
    For i As Integer = .BottomPosition To .TopPosition Step -1
        .Rows(i).Delete()
    Next
End With

楼主不是删除行，而是删除该行的部分数据

太感谢了，这个东西很深奥呀，
呵呵，不经过系统的学习还是很难应运自如

If CurrentTable.Focus Then '将输入焦点移到当前表
    CurrentTable.StartEditing '如果成功,则开始编辑.
    With CurrentTable
        .Select( .Rows.Count - 1,2, .Rows.Count - 1,11)
    End With
    Syscmd.Edit.Delete()
End If
红色的不要也行,呵呵

那么是否
CurrentTable.Focus
With CurrentTable
        .Select( .Rows.Count - 1,2, .Rows.Count - 1,11)
    End With
    Syscmd.Edit.Delete()
这样也应该是可以的吧

不行,其实你试试就知道了,呵