Foxtable(狐表)用户栏目专家坐堂 → 欠费日期筛选


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

主题:欠费日期筛选

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


加好友 发短信
等级:九尾狐 帖子:2177 积分:13784 威望:0 精华:2 注册:2012/2/25 10:59:00
欠费日期筛选  发帖心情 Post By:2020/4/9 13:03:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:搜狗截图20200409130958.png
图片点击可在新窗口打开查看



图片点击可在新窗口打开查看此主题相关图片如下:搜狗截图20200409130436.png
图片点击可在新窗口打开查看

我要从租金库中找出每户没有交费的日期,采用的是遍历的办法,效率非常低,这只是整个表中的一户,
现在整个表有2万户,每户每年有10多条记录,有10多年的记录,不用遍历的方法,用sql语句,能不能高效的找出来?
Dim dr1,dr2 As Row
Dim N As Integer
Tables("租金库").Sort="交费截止日期"
For N=0 To Tables("租金库").Rows.Count-2
    dr1 = Tables("租金库").Rows(N)
    dr2 = Tables("租金库").Rows(N+1)
    If dr2("交费起始日期")>dr1("交费截止日期") And dr2("交费起始日期").adddays(-1)<>dr1("交费截止日期") Then
        Tables("欠费表").AddNew
        Tables("欠费表").Current("房屋代码")= dr1("房屋代码")
        Tables("欠费表").Current("欠费起始日期")= dr1("交费截止日期").adddays(1)
        Tables("欠费表").Current("欠费截止日期")= dr2("交费起始日期").adddays(-1)
    End If
Next
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:欠费日期筛选.table


[此贴子已经被作者于2020/4/9 13:10:30编辑过]

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


加好友 发短信
等级:超级版主 帖子:105467 积分:536320 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/9 13:50:00 [只看该作者]

找不到什么规律。没有办法使用sql解决。建议增加一个已缴费月份表,先根据日期计算出已缴费的月份

 回到顶部