Foxtable(狐表) → 用户栏目 → 专家坐堂 → SQL DATE


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

主题：SQL DATE
帅哥哟，离线，有人找我吗？
seal51
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		SQL DATE  发帖心情 Post By：2016/4/19 10:18:00 [只看该作者]

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)

 

这段代码如何修改
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/19 10:38:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：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

 

不会玩了， 老师给改改！谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/19 11:03:00 [只看该作者]

 报什么错，有什么问题？

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/4/20 9:16:00 [只看该作者]

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.4.6.1
错误所在事件：
详细错误信息：
未找到列 [日]。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/20 9:26:00 [只看该作者]

cmd.CommandText = "Select Distinct Year(日期) As 年, Month(日期) As 月, Day(日期) As 日 Fro m {工作列表}"

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/4/20 10:25:00 [只看该作者]

这个肯定已经更改了， 还是出现那个错误

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/20 10:28:00 [只看该作者]

Case 2
            d1 = New Date(Year, Month, Day) '取得该月的第一天
            d2 = d1.AddDays(1)
            Filter = "日期 >= #" & d1 & "# And 日期 < #" & d2 & "#"
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/4/20 18:59:00 [只看该作者]

OK了，谢谢老师！

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2016/4/20 19:04:00 [只看该作者]

有个日期列， 星期列， 如何选择日期自动填写是星期几呢？

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