Foxtable(狐表)用户栏目专家坐堂 → [求助]项目表中有大量数据,删除语句删除不完,求解。


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

主题:[求助]项目表中有大量数据,删除语句删除不完,求解。

帅哥哟,离线,有人找我吗?
guoqi1129
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:65 积分:607 威望:0 精华:0 注册:2012/6/14 9:32:00
[求助]项目表中有大量数据,删除语句删除不完,求解。  发帖心情 Post By:2013/2/20 11:28:00 [只看该作者]

 For Each r As Row In Tables("项目").Rows
r.Delete
Next
DataTables("项目").Save
MessageBox.Show("好")
项目表中有3000条数据,执行一次后剩下1500条数据,执行2次后剩下750条数据,我想执行一次就全部删除,这个是怎么回事?

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/2/20 11:30:00 [只看该作者]

 可以这样删除。

For Each r As Row In Tables("项目").Rows
    Tables("项目").Rows(0).Delete
Next
DataTables("项目").Save
MessageBox.Show("好")

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/2/20 11:31:00 [只看该作者]

或者直接这样

DataTables("项目").DeleteFor(Tables("项目").Filter)

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


加好友 发短信
等级:四尾狐 帖子:867 积分:6210 威望:0 精华:0 注册:2012/11/24 20:44:00
  发帖心情 Post By:2013/2/20 11:35:00 [只看该作者]

最好删除前有一个提示语,以免丢失数据。

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/2/20 11:35:00 [只看该作者]

以下是引用lin_hailun在2013-2-20 11:30:00的发言:
 可以这样删除。

For Each r As Row In Tables("项目").Rows
    Tables("项目").Rows(0).Delete
Next
DataTables("项目").Save
MessageBox.Show("好")

Tables("项目").Rows(0).Delete  ————这可是活用的范例,咱也得活学。


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


加好友 发短信
等级:婴狐 帖子:65 积分:607 威望:0 精华:0 注册:2012/6/14 9:32:00
  发帖心情 Post By:2013/2/20 11:45:00 [只看该作者]

见识了,谢谢大家

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2013/2/20 12:37:00 [只看该作者]

datattables("xxx").datarows.clear   1万条瞬间.

 回到顶部