专家坐堂-按周查询的问题？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按周查询的问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96654)

--  作者：zsslly
--  发布时间：2017/2/25 11:38:00
--  按周查询的问题？

我有一个窗口中设置按周查询，代码不对，求指点？

\'查看量房开始
Dim cbx1 As WinForm.ComboBox = e.Form.Controls("ComboBox5")
Dim cbx2 As WinForm.ComboBox = e.Form.Controls("ComboBox6")
Dim filter As String = "1=1"
If cbx1.text > "" Then
    Dim year As String = cbx1.text.SubString(0,2)
    Dim week As String = cbx1.text.SubString(3,2)
    Dim d As Date = new Date(year+2000, month, 1)
    filter &= " and 接单日期 >= #" & d & "# and 接单日期 < #" & d.Addweek(1) & "#"
End If
If cbx2.text > "" Then
    filter &= " and 设计师 = \'" & cbx2.text & "\'"
End If
\'msgbox(filter)
e.Form.controls("table1").Table.Filter = filter
\'查看量房结束

如图，如案例，

此主题相关图片如下：qq截图20170225113655.jpg

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:按周查询.table

--  作者：zsslly
--  发布时间：2017/2/25 12:15:00
--
求指点？
此主题相关图片如下：qq截图20170225121353.jpg

--  作者：zsslly
--  发布时间：2017/2/25 14:47:00
--
求指点？

--  作者：有点蓝
--  发布时间：2017/2/25 14:47:00
--
\'查看量房开始
Dim cbx1 As WinForm.ComboBox = e.Form.Controls("ComboBox5")
Dim cbx2 As WinForm.ComboBox = e.Form.Controls("ComboBox6")
Dim filter As String = "1=1"
If cbx1.text > "" Then
    Dim year As String = cbx1.text.SubString(0,2)
    Dim week As String = cbx1.text.SubString(3,2)
    Dim d As Date = new Date(year+2000, 1, 1)
    Dim w = d.DayOfWeek
    Dim startdate As Date
    Dim Enddate As Date
    Select Case week
        Case "01"
            startdate = d
            Enddate = d.AddDays(7-w)
        Case "53"
            startdate = d.AddDays(7-w).AddDays(7*51)
            Enddate = d.AddYears(1)
        Case Else
            startdate = d.AddDays(7-w).AddDays(7*(val(week)-2))
            Enddate = startdate.AddDays(7)
    End Select
    msgbox(startdate & "-" & Enddate )
    filter &= " and 量房时间 >= #" & startdate & "# and 量房时间 < #" & Enddate & "#"
End If
If cbx2.text > "" Then
    filter &= " and 设计师 = \'" & cbx2.text & "\'"
End If
\'msgbox(filter)
e.Form.controls("table1").Table.Filter = filter
\'查看量房结束

--  作者：zsslly
--  发布时间：2017/2/25 16:45:00
--
求问老师，如果从星期一到星期天为一周如何改？您指点的代码为从星期天到星期一的！

--  作者：有点蓝
--  发布时间：2017/2/25 17:16:00
--

d.AddDays(7-w)

改为

d.AddDays(8-w)

--  作者：zsslly
--  发布时间：2017/2/26 11:27:00
--
谢老师，OK了