Foxtable(狐表)用户栏目专家坐堂 → DeleteFor如何删除老记录,保持行数记录不超10000条


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

主题:DeleteFor如何删除老记录,保持行数记录不超10000条

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107146 积分:544973 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/24 8:35:00 [显示全部帖子]

Dim dr As DataRow
dr = 
DataTables("订单").Find("","日期 Desc",10000)
If 
dr IsNot Nothing Then '如果找到的话
    
DataTables("订单").DeleteFor("[日期] < #" & dr("日期") & "#")
End If

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107146 积分:544973 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/1 9:52:00 [显示全部帖子]

代码没有问题。什么数据库?

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107146 积分:544973 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/1 9:59:00 [显示全部帖子]

确认删除后数据库还有10天前的数据?

窗口表使用了fill?或者是sqltable?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107146 积分:544973 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/1 10:18:00 [显示全部帖子]


 回到顶部