以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  SQL DATE  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83883)
--  作者：seal51
--  发布时间：2016/4/19 10:18:00
--  SQL DATE

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select Distinct Year(日期) As 年, Month(日期) As 月, Date(日期) As 日 Fro m {工作列表}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|日")
trv.Nodes.Insert("显示所有行",0)

 

这段代码如何修改
--  作者：大红袍
--  发布时间：2016/4/19 10:38:00
--  

Day(日期) As 日

 

http://www.foxtable.com/help/topics/0692.htm

 

http://www.foxtable.com/help/topics/1827.htm

 
--  作者：seal51
--  发布时间：2016/4/19 10:53:00
--  

Dim Filter As String = ""
If e.node.Name <> "显示所有行" Then
    Dim d1 As Date
    Dim d2 As Date
    Dim d3 As Date
    Dim Year As Integer = e.Node.DataRow("年")
    Dim Month As Integer = e.Node.DataRow("月")
    Dim Day As Integer = e.Node.DataRow("日")
    Select Case e.Node.Level
        Case 0
            d1 = New Date(Year,1,1) \'取得该年的第一天
            d2 = new Date(Year,12,31) \'取得该年的最后一天
            Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
        Case 1
            d1 = New Date(Year, Month, 1) \'取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
            Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
        Case 2
            d1 = New Date(Year, Month, 1) \'取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) \'取得该月的最后一天
            Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 日 = \'" & d3 & "\'"
    End Select
End If
Tables("工作列表").Filter = Filter

 

不会玩了， 老师给改改！谢谢！
--  作者：大红袍
--  发布时间：2016/4/19 11:03:00
--  
 报什么错，有什么问题？
--  作者：seal51
--  发布时间：2016/4/20 9:16:00
--  
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.4.6.1
错误所在事件：
详细错误信息：
未找到列 [日]。
--  作者：大红袍
--  发布时间：2016/4/20 9:26:00
--  
cmd.CommandText = "Select Distinct Year(日期) As 年, Month(日期) As 月, Day(日期) As 日 Fro m {工作列表}"
--  作者：seal51
--  发布时间：2016/4/20 10:25:00
--  
这个肯定已经更改了， 还是出现那个错误
--  作者：大红袍
--  发布时间：2016/4/20 10:28:00
--  

Case 2
            d1 = New Date(Year, Month, Day) \'取得该月的第一天
            d2 = d1.AddDays(1)
            Filter = "日期 >= #" & d1 & "# And 日期 < #" & d2 & "#"
--  作者：seal51
--  发布时间：2016/4/20 18:59:00
--  
OK了，谢谢老师！
--  作者：seal51
--  发布时间：2016/4/20 19:04:00
--  
有个日期列， 星期列， 如何选择日期自动填写是星期几呢？