Foxtable(狐表)用户栏目专家坐堂 → 删除行


  共有5250人关注过本帖树形打印复制链接

主题:删除行

美女呀,离线,留言给我吧!
sara
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
删除行  发帖心情 Post By:2014/12/22 15:46:00 [只看该作者]

如何实现删除当前行?就是当前选中De行?

 回到顶部
帅哥哟,离线,有人找我吗?
jialihaha
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:998 积分:6656 威望:0 精华:0 注册:2014/10/20 11:06:00
  发帖心情 Post By:2014/12/22 15:47:00 [只看该作者]

Tables("表名").Current.Delete

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/22 15:48:00 [只看该作者]

 For i As Integer = CurrentTable.BottomPosition To CurrentTable.TopPosition Step -1
    CurrentTable.Rows(i).Delete
Next

 回到顶部
美女呀,离线,留言给我吧!
sara
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2014/12/22 15:53:00 [只看该作者]

这种办法一直删除De是第一条记录

 回到顶部
美女呀,离线,留言给我吧!
sara
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2014/12/22 15:53:00 [只看该作者]

这个是删除所有数据吧,我想实现De是删除当前行数据,就是选择哪行删除哪行

 回到顶部
帅哥哟,离线,有人找我吗?
jialihaha
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:998 积分:6656 威望:0 精华:0 注册:2014/10/20 11:06:00
  发帖心情 Post By:2014/12/22 15:53:00 [只看该作者]

那就看3楼的,循环删除

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/22 15:54:00 [只看该作者]

看3楼。

 回到顶部
美女呀,离线,留言给我吧!
sara
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2014/12/22 16:05:00 [只看该作者]

确实管用啊,解释下呗?或者参考位置

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/22 16:06:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
一笑
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2015/1/6 16:14:00 [只看该作者]

我想删除窗口中绑定表(可编辑)中所有行,结果只能删除单行,请教专家代码有何问题?谢谢
With Tables("时间")
If MessageBox.Show("是否全部删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes
     For i As Integer = .BottomPosition To .TopPosition Step -1
    .Rows(i).Delete
Next
        End If
End With

 回到顶部
总数 12 1 2 下一页