Foxtable(狐表) → 用户栏目 → 专家坐堂 → 时段统计问题


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

主题：时段统计问题
美女呀，离线，留言给我吧！
采菊东篱下
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		时段统计问题  发帖心情 Post By：2021/4/23 14:46:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20210423142344.png
图片点击可在新窗口打开查看
上图是原始始数据

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20210423142959.png
图片点击可在新窗口打开查看
下面代码已实现根据起止日期统计或车牌号码查询、统计数据，由于费用是一次交3个月或以上的，如果我想汇总1-6月份的缴费情况，这代码就统计不出了，因为它只统计起止日期符合条件的数据，如2020年12月交2021年1-6月份的钱，分次的，如2020年12月交2021年1-3月份的钱，2021年3月交2021年4-6月份的钱，就统计不出。
If e.Form.Controls("ComboBox1").Value = "" Then'当日期为空取消保存操作
            messagebox.show("请选择分类")
            Return
End If
If e.Form.Controls("ComboBox1").Value = e.Form.Controls("ComboBox1").Items(1) Then
    Dim Filter As String
    Filter = "分类 = '" & e.Form.Controls("ComboBox1").Value & "'"
    With e.Form.Controls("StartDate")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "缴费_月租_起计日期 <= #" & .Value & "#"
        End If
    End With
    With e.Form.Controls("EndDate")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "缴费_月租_止计日期 >= #" & .Value & "#"
        End If
    End With
    With e.Form.Controls("DropBox1")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "车牌号码 = '" & .Value & "'"
        End If
    End With
    If Filter > "" Then
        With Tables("月租所属期缴费统计表_Table1")
            For i As Integer = .Rows.count - 1 To 0 Step -1
                .Rows(i).Delete
            Next
            LockBaseMainForm() '锁定主界面
            .StopRedraw()
            For i As Integer = DataTables("缴费情况").DataRows.count - 1 To 0 Step -1
                Dim tr As DataRow = DataTables("缴费情况").DataRows(i)
                If tr.Isnull("车牌号码") Then
                    tr.delete
                End If
            Next
            .Fill("Select [_Identify],分类,住址_巷,住址_号,住址_房,姓名,固定电话,手机号码,车牌号码,缴费_月租_月租单价 fro m {缴费情况} Where " & Filter,False)
            Dim t As DataTable = e.Form.Controls("Table1").Table.DataTable
            If t.DataCols.Contains("查询_月租_起计日期") = False And t.DataCols.Contains("查询_月租_止计日期") = False And t.DataCols.Contains("查询_月租_缴费月数") = False And t.DataCols.Contains("查询_月租_缴费金额") = False Then
                t.DataCols.add("查询_月租_起计日期", Gettype(Date))
                t.DataCols.add("查询_月租_止计日期", Gettype(Date))
                t.DataCols.add("查询_月租_缴费月数", Gettype(Double))
                t.DataCols.add("查询_月租_缴费金额", Gettype(Double))
            End If
            .SetColVisibleWidth("分类|60|住址_巷|60|住址_号|40|住址_房|40|姓名|50|固定电话|80|手机号码|80|车牌号码|80|缴费_月租_月租单价|60|查询_月租_起计日期|70|查询_月租_止计日期|70|查询_月租_缴费月数|70|查询_月租_缴费金额|70")
            For Each dr As DataRow In DataTables("月租所属期缴费统计表_Table1").DataRows
                dr("查询_月租_起计日期") = e.Form.Controls("StartDate").Value
                dr("查询_月租_止计日期") = e.Form.Controls("EndDate").Value
                dr("查询_月租_缴费月数") = DateDiff("m",e.Form.Controls("StartDate").Value,e.Form.Controls("EndDate").Value) + 1
                dr("查询_月租_缴费金额") = (DateDiff("m",e.Form.Controls("StartDate").Value,e.Form.Controls("EndDate").Value) + 1) * dr("缴费_月租_月租单价")
            Next
            If .Rows.Count < 15 Then
                .AddNew(15 - .Rows.Count)
            End If
            .ResumeRedraw()
            UnLockBaseMainForm() '解锁主界面
            .Cols("查询_月租_缴费金额").GrandTotal = True
            .GrandTotal = True
        End With
    End If
ElseIf e.Form.Controls("ComboBox1").Value = e.Form.Controls("ComboBox1").Items(2)
    Dim Filter1 As String
    Filter1 = "分类 = '" & e.Form.Controls("ComboBox1").Value & "'"
    With e.Form.Controls("DateTimePicker1")
        If .Value IsNot Nothing Then
            If Filter1 > "" Then
                Filter1 = Filter1 & " And "
            End If
            Filter1 = Filter1 & "缴费_临时停放_起计时间 >= #" & Format(.Value.adddays(-1),"G") & "#"
        End If
    End With
    With e.Form.Controls("DateTimePicker2")
        If .Value IsNot Nothing Then
            If Filter1 > "" Then
                Filter1 = Filter1 & " And "
            End If
            Filter1 = Filter1 & "缴费_临时停放_止计时间 <= #" & Format(.Value.adddays(1),"G") & "#"
        End If
    End With
    With e.Form.Controls("DropBox1")
        If .Value IsNot Nothing Then
            If Filter1 > "" Then
                Filter1 = Filter1 & " And "
            End If
            Filter1 = Filter1 & "车牌号码 = '" & .Value & "'"
        End If
    End With
    If Filter1 > "" Then
        With Tables("月租所属期缴费统计表_Table1")
            For i As Integer = .Rows.count - 1 To 0 Step -1
                .Rows(i).Delete
            Next
            LockBaseMainForm() '锁定主界面
            .StopRedraw()
            For i As Integer = DataTables("缴费情况").DataRows.count - 1 To 0 Step -1
                Dim tr As DataRow = DataTables("缴费情况").DataRows(i)
                If tr.Isnull("车牌号码") Then
                    tr.delete
                End If
            Next
            .Fill("Select [_Identify],分类,亲属临时停车,车牌号码 fro m {缴费情况} Where " & Filter1,False)
            Dim t As DataTable = e.Form.Controls("Table1").Table.DataTable
            If t.DataCols.Contains("查询_临时停放_起计时间") = False And t.DataCols.Contains("查询_临时停放_止计时间") = False And t.DataCols.Contains("查询_临时停放_停放累计时间") = False And t.DataCols.Contains("查询_临时停放_计费累计时间") = False And t.DataCols.Contains("查询_临时停放_缴费累计金额") = False Then
                t.DataCols.add("查询_临时停放_起计时间", Gettype(Date))
                t.DataCols.add("查询_临时停放_止计时间", Gettype(Date))
                t.DataCols.add("查询_临时停放_停放累计时间", Gettype(Double))
                t.DataCols.add("查询_临时停放_计费累计时间", Gettype(Double))
                t.DataCols.add("查询_临时停放_缴费累计金额", Gettype(Double))
            End If
            .SetColVisibleWidth("分类|80|亲属临时停车|50|车牌号码|100|查询_临时停放_起计时间|120|查询_临时停放_止计时间|120|查询_临时停放_停放累计时间|120|查询_临时停放_计费累计时间|120|查询_临时停放_缴费累计金额|120")
            For Each dr As DataRow In DataTables("月租所属期缴费统计表_Table1").DataRows
                dr("查询_临时停放_起计时间") = e.Form.Controls("DateTimePicker1").Value
                dr("查询_临时停放_止计时间") = e.Form.Controls("DateTimePicker2").Value
                dr("查询_临时停放_停放累计时间") = DataTables("缴费情况").Compute("Sum(缴费_临时停放_停车时间)","[车牌号码] ='" & dr("车牌号码") & "' And [缴费_临时停放_起计时间] >= #" & Format(e.Form.Controls("DateTimePicker1").Value.adddays(-1),"G") & "# And [缴费_临时停放_止计时间] <= #" & Format(e.Form.Controls("DateTimePicker2").Value.adddays(1),"G") & "#")
                dr("查询_临时停放_计费累计时间") = DataTables("缴费情况").Compute("Sum(缴费_临时停放_计费时间)","[车牌号码] ='" & dr("车牌号码") & "' And [缴费_临时停放_起计时间] >= #" & Format(e.Form.Controls("DateTimePicker1").Value.adddays(-1),"G") & "# And [缴费_临时停放_止计时间] <= #" & Format(e.Form.Controls("DateTimePicker2").Value.adddays(1),"G") & "#")
                dr("查询_临时停放_缴费累计金额") = DataTables("缴费情况").Compute("Sum(缴费_临时停放_缴费金额)","[车牌号码] ='" & dr("车牌号码") & "' And [缴费_临时停放_起计时间] >= #" & Format(e.Form.Controls("DateTimePicker1").Value.adddays(-1),"G") & "# And [缴费_临时停放_止计时间] <= #" & Format(e.Form.Controls("DateTimePicker2").Value.adddays(1),"G") & "#")
            Next
            If .Rows.Count < 15 Then
                .AddNew(15 - .Rows.Count)
            End If
            .ResumeRedraw()
            UnLockBaseMainForm()
            .Cols("查询_临时停放_停放累计时间").GrandTotal = True
            .Cols("查询_临时停放_计费累计时间").GrandTotal = True
            .Cols("查询_临时停放_缴费累计金额").GrandTotal = True
            .GrandTotal = True
        End With
    End If
End If
请教应如何写这代码？
[此贴子已经被作者于2021/4/23 16:27:16编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105932 积分：538729 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/23 15:09:00 [只看该作者]

如2020年12月交2021年1-3月份的钱，那么缴费情况是算给12月的，还是算给1-3月的？

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/23 15:36:00 [只看该作者]

安费用所属时间统计，不是安交费日期统计。

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


加好友 发短信
等级：超级版主 帖子：105932 积分：538729 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/23 15:48:00 [只看该作者]

那么统计的时候就按起止日期计算，不要按交费日期计算呀

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/23 15:51:00 [只看该作者]

我是安起止日期查找、汇总，但汇总1至6月的数时只查出2个起止日期是1至6月的.，分2次交的没汇总。
[此贴子已经被作者于2021/4/23 15:56:07编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105932 积分：538729 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/23 15:58:00 [只看该作者]

    With e.Form.Controls("StartDate")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "缴费_月租_起计日期 >= #" & .Value & "#"
        End If
    End With
    With e.Form.Controls("EndDate")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "缴费_月租_止计日期 <= #" & .Value & "#"
        End If
    End With
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/23 16:04:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20210423160238.png
图片点击可在新窗口打开查看
我前几天问过你不明改为你上面这样统计不到数据你没回我，你改为这样结果什么都查不到符合条件的数！
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/23 16:06:00 [只看该作者]

从1月1日至1月31日刚好是1个月，却统计不出一个数！

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/23 16:10:00 [只看该作者]

哦，不能随意选起止日期，如从1月头到1月底，1月头到2月底，只能安起止列中有的日期查找、汇总。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1879 积分：10352 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/23 16:33:00 [只看该作者]

搜1月1日至1月31日、1月1日至2月28日、2月1日到2月28日不行，3月1日到3月31日不行，3月1日到4月30日也不行，但1月1日到3月31日又行了，哦，小于同一行的起止日期都搜不出数据，跨行的起止日期就行，应如何写这代码？

 回到顶部
总数 123 1 2 3 4 5 6 7 8 9 10 下一页 ..13
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 4 次数据查询