点击上一周显示去年 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 点击上一周显示去年

共有4352人关注过本帖树形打印复制链接主题：点击上一周显示去年

yangwenghd

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/1/4 21:53:00 [只看该作者]

谢谢你，又一次雪中送炭。新年快乐！！

yangwenghd

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/1/16 20:15:00 [只看该作者]

如果添加一个控件DateTimePicker1和一个Button1，点击Button1把DateTimePicker1选择的时间的那一周显示到Table5应该怎么写啊？感谢感谢

大红袍

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/17 11:07:00 [只看该作者]

无语，你到底有没有看懂过代码啊。

大红袍

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/17 11:13:00 [只看该作者]

参考代码

Dim t1 As Table = e.Form.Controls("Table5").Table
Dim d As Date = "2016-1-1"
Dim y As Integer = d.Year
Dim w As Integer = d.DayOfWeek '算出今天是星期几
Dim dt1 As Date = d.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = d.AddDays(6 - w) '获取本周的最后一天
vars("cdate") = dt1
Dim d1 As Date = vars("cdate")
t1.filter = "日期 >= #" & d1 & "# and 日期 < #" & d1.AddDays(7) & "#"

Dim str As String = ""
If Date.Today >= d1 AndAlso Date.Today < d1.AddDays(7) Then
    str = "本周计划"
ElseIf Date.Today.AddDays(7) >= d1 AndAlso Date.Today.AddDays(7) < d1.AddDays(7) Then
    str = "下周计划"
ElseIf Date.Today.AddDays(-7) >= d1 AndAlso Date.Today.AddDays(-7) < d1.AddDays(7) Then
    str = "上周计划"
Else
    str = "第" & t1.Current("sys_weekofyear") & "周计划"
End If

e.Form.Controls("Label13").Text = str