专家坐堂-为何不执行呢？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为何不执行呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3678)

--  作者：chenwuwenyu
--  发布时间：2009/7/23 15:11:00
--  为何不执行呢？

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

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

--  作者：yangming
--  发布时间：2009/7/23 15:21:00
--
Syscmd.Edit.Delete()

不能和代码混用吧

--  作者：shxiaoya
--  发布时间：2009/7/23 15:32:00
--
If CurrentTable.Focus Then \'将输入焦点移到当前表
    CurrentTable.StartEditing \'如果成功,则开始编辑.
    With CurrentTable
        .Select( .Rows.Count - 1,2, .Rows.Count - 1,11)
    End With
    Syscmd.Edit.Delete()
End If

--  作者：yangming
--  发布时间：2009/7/23 15:34:00
--
删除选定行,用这个
With CurrentTable
    For i As Integer = .BottomPosition To .TopPosition Step -1
        .Rows(i).Delete()
    Next
End With

--  作者：shxiaoya
--  发布时间：2009/7/23 15:41:00
--

以下是引用yangming在2009-7-23 15:34:00的发言：
删除选定行,用这个
With CurrentTable
    For i As Integer = .BottomPosition To .TopPosition Step -1
        .Rows(i).Delete()
    Next
End With

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

--  作者：chenwuwenyu
--  发布时间：2009/7/23 15:54:00
--

以下是引用shxiaoya在2009-7-23 15:32:00的发言：
If CurrentTable.Focus Then \'将输入焦点移到当前表
    CurrentTable.StartEditing \'如果成功,则开始编辑.
    With CurrentTable
        .Select( .Rows.Count - 1,2, .Rows.Count - 1,11)
    End With
    Syscmd.Edit.Delete()
End If

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

--  作者：yangming
--  发布时间：2009/7/23 16:12:00
--
If CurrentTable.Focus Then \'将输入焦点移到当前表
    CurrentTable.StartEditing \'如果成功,则开始编辑.
    With CurrentTable
        .Select( .Rows.Count - 1,2, .Rows.Count - 1,11)
    End With
    Syscmd.Edit.Delete()
End If
红色的不要也行,呵呵

--  作者：chenwuwenyu
--  发布时间：2009/7/23 16:20:00
--
那么是否
CurrentTable.Focus
With CurrentTable
        .Select( .Rows.Count - 1,2, .Rows.Count - 1,11)
    End With
    Syscmd.Edit.Delete()
这样也应该是可以的吧

--  作者：yangming
--  发布时间：2009/7/23 16:23:00
--

以下是引用chenwuwenyu在2009-7-23 16:20:00的发言：
那么是否
CurrentTable.Focus
With CurrentTable
        .Select( .Rows.Count - 1,2, .Rows.Count - 1,11)
    End With
    Syscmd.Edit.Delete()
这样也应该是可以的吧

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