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


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

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


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/23 21:05:00 [显示全部帖子]

我解决了。

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


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/24 9:35:00 [显示全部帖子]

我想加一列次数统计，红色标注这样写报错。
If 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],分类,亲属临时停车,车牌号码,Count(车牌号码) As 查询_临时停放_出入次数 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|出入次数|80|查询_临时停放_起计时间|100|查询_临时停放_止计时间|100|查询_临时停放_停放累计时间|100|查询_临时停放_计费累计时间|100|查询_临时停放_缴费累计金额|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
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/4/24 10:28:00 [显示全部帖子]

.NET Framework 版本：4.0.30319.17929
Foxtable 版本：2021.4.20.1
错误所在事件：
详细错误信息：
Dynamic SQL generation for the UpdateCommand is not supported against a SelectCommand that does not return any key column information.
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/5/18 14:21:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20210518140659.png
图片点击可在新窗口打开查看
没加第二段红色代码前，不选时段直接查询会报错，选了时段，统计正常，于是我加了第一、二段红色代码，要求起止日期或起止时间控件不能为空，否则取消查询，可加后报错，是要求把时间显示转为字符型吧？请教应如何处理？
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
    If e.Form.Controls("StartDate").Value = "" OrElse e.Form.Controls("EndDate").Value = "" Then '当日期为空取消保存操作
        messagebox.show("请选择起止日期")
        Return
    Else
        Dim Filter As String
        Dim f2 As String
        Filter = "分类 = '" & e.Form.Controls("ComboBox1").Value & "'"
        With e.Form.Controls("StartDate")
            If .Value IsNot Nothing Then
                f2 = "缴费_月租_起计日期 <= #" & .Value & "# And 缴费_月租_止计日期 >= #" & .Value & "#"
            End If
        End With
        With e.Form.Controls("EndDate")
            If .Value IsNot Nothing Then
                If f2 > "" Then
                    f2 = Filter & " And "
                End If
                f2  = f2  & "缴费_月租_起计日期 <= #" & .Value & "# and 缴费_月租_止计日期 >= #" & .Value & "#"
            End If
        End With
        If F2 > "" Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & " (" & F2 & ") "
        End If
        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],分类,住址_巷,住址_号,住址_房,姓名,固定电话,手机号码,车牌号码,缴费_月租_月租单价 fr om {缴费情况} 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
    End If
    DataTables("月租所属期缴费统计表_Table1").DataCols("查询_月租_缴费金额").SetFormat("#,###.##")
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/5/18 14:21:00 [显示全部帖子]

ElseIf e.Form.Controls("ComboBox1").Value = e.Form.Controls("ComboBox1").Items(2)
    If e.Form.Controls("DateTimePicker1").Value = "" OrElse e.Form.Controls("DateTimePicker2").Value = "" Then '当日期为空取消保存操作
        messagebox.show("请选择起止时间")
        Return
    Else
        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 分类,亲属临时停车,车牌号码,Count(车牌号码) As 查询_临时停放_出入次数 fro m {缴费情况} Where " & Filter1 & " group by 分类,亲属临时停车,车牌号码",True)
                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|查询_临时停放_出入次数|80|查询_临时停放_起计时间|100|查询_临时停放_止计时间|100|查询_临时停放_停放累计时间|100|查询_临时停放_计费累计时间|100|查询_临时停放_缴费累计金额|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
            DataTables("月租所属期缴费统计表_Table1").DataCols("查询_临时停放_缴费累计金额").SetFormat("#,###.##")
        End If
    End If
End If
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/30 20:46:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20211130202844.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20211130202805.png
图片点击可在新窗口打开查看
数据源是的月租_起计日期是2021-01-01，查询日期是：2020-12-01到2021-01-31得出2个月数据这显然不对，因为数据源中根本没有2020-12-01到2020-12-31的数据，何来2个月，因此此代码中还需用数据源中的月租_起计日期跟查询日期中的起计日期比较，如果查询日期小于数据源中的日期，则取源数据中的起计日期，否则等于查询日期，同理月租_止计日期也作比较，如果查询止计日期大于数据源中的月租_止计日期，则取源据中最大日期，请教这代码应怎么写？
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
    If e.Form.Controls("StartDate").Value = Nothing OrElse e.Form.Controls("EndDate").Value = Nothing Then '当日期为空取消保存操作
        messagebox.show("请选择起止日期")
        Return
    Else
        Dim Filter As String
        Dim f2 As String
        Filter = "分类 = '" & e.Form.Controls("ComboBox1").Value & "'"
        With e.Form.Controls("StartDate")
            If .Value IsNot Nothing Then
                f2 = "[缴费_月租_起计日期] <= #" & .Value & "# And [缴费_月租_止计日期] >= #" & .Value & "#"
            End If
        End With
        With e.Form.Controls("EndDate")
            If .Value IsNot Nothing Then
                If f2 > "" Then
                    f2 = Filter & " And "
                End If
                f2  = f2  & "[缴费_月租_起计日期] <= #" & .Value & "# And [缴费_月租_止计日期] >= #" & .Value & "#"
            End If
        End With
        If F2 > "" Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & " (" & F2 & ") "
        End If
        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|住址_号|30|住址_房|30|姓名|50|手机号码|80|车牌号码|70|缴费_月租_月租单价|60|查询_月租_起计日期|70|查询_月租_止计日期|70|查询_月租_缴费月数|60|查询_月租_缴费金额|60|备注|127")
                .SetHeaderRowHeight(0,0,25)
                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
    End If
    DataTables("安费用所属期查询统计_Table1").DataCols("查询_月租_缴费金额").SetFormat("#,###.##")
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/30 21:06:00 [显示全部帖子]

不能这样写，数据源中的起、止日期夸3个月甚到更多，不是每行连续，查询日期或许等于，或许少于，又或许大于这些起、止日期，查询的起计日期或许等于数据源中的止计日期，你这样写不行的。
[此贴子已经被作者于2021/11/30 21:06:28编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/30 21:29:00 [显示全部帖子]

我把你的代码复进去试了一下，数据源里根本没这月份，也安查询日期计，统计出2个月数据。

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


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/11/30 23:04:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/12/1 10:19:00 [显示全部帖子]

结果应为1个月，因为数据源中没有2020-12-01到2020-12-31的数据，如果中途由于业主长时间旅游或者出差，那个月没交月租，改交临时缴费，但之后回来正常出入了，又交月租费，那么这个业主的月租缴费会出现中断现象，时段统计的起计日期应取在月租起、止计日期里最接近查询日期的起计日期的日期，不是直接取查询日期，月租止计日期亦应作同理判断。
[此贴子已经被作者于2021/12/1 10:32:41编辑过]
 回到顶部
总数 79 上一页 1 2 3 4 5 6 7 8 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 6 次数据查询