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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为何不执行呢？

共有14741人关注过本帖树形打印复制链接主题：为何不执行呢？

yangming

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/7/23 15:21:00 [显示全部帖子]

Syscmd.Edit.Delete()

不能和代码混用吧

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/7/23 15:34:00 [显示全部帖子]

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

yangming

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：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
红色的不要也行,呵呵

yangming

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：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()
这样也应该是可以的吧

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

下一主题 >> << 上一主题

主题：为何不执行呢？