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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选周行

共有3091人关注过本帖树形打印复制链接主题：筛选周行

yangwenghd

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

加好友

发短信

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

筛选周行

Post By：2019/4/21 12:34:00 [只看该作者]

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

老师，能帮忙看看这个吗？

如果年份和周是分开的，然后要筛选出他们的行应该怎么筛选啊？

点击按钮，怎么筛选出文字控件对应的行啊，感谢感谢

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

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2019/4/21 17:32:00 [只看该作者]

Dim str As String = "第2019-14周"
str = str.SubString(1, str.length-2)
Dim ary = str.split("-")
Tables("表a").filter = "年份='" & ary(0) & "' and 本周周数='" & ary(1) & "'"

yangwenghd

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

加好友

发短信

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

Post By：2019/4/21 20:22:00 [只看该作者]

谢谢老师感谢

yangwenghd

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

加好友

发短信

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

Post By：2019/4/22 21:21:00 [只看该作者]

老师能再请教你个问题吗？

如果 Label11 显示的“本周计划”和“上一周” 的时候那个时间可以为电脑显示的年份和周来筛选吗？

比如如果Label11 显示的本周计划，然后以电脑时间筛选出本周的行。

如果是上一周就以电脑时间筛选出上一周的的行，

如果Label11 既不是本周计划也不是上一周，就执行红色代码，给您们添麻烦了，感谢感谢

'Dim str As String = "第2019-14周"

Dim str As String = e.form.controls("Label11").text

str = str.SubString(1, str.length-2)

Dim ary = str.split("-")

Tables("当周工作显示窗口_Table1").filter = "年份='" & ary(0) & "' and sys_weekofyear='" & ary(1) & "'"

有点蓝

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

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/4/22 21:29:00 [只看该作者]

“本周计划”

Dim calCommon As New System.Globalization.GregorianCalendar()

Dim dt As Date = Date.Today

dim w = calCommon.GetWeekOfYear(dt, System.Globalization.CalendarWeekRule.FirstDay, 0)

Tables("当周工作显示窗口_Table1").filter = "年份='" & Date.Today.year & "' and sys_weekofyear='" & w & "'"

yangwenghd

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

加好友

发短信

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

Post By：2019/9/3 16:15:00 [只看该作者]

老师，能帮忙看看被筛选的字段不懂吗？

If e.Form.Controls("Label11").Text = "Work this week" Then

Dim calCommon As New System.Globalization.GregorianCalendar()

Dim dt As Date = Date.Today

Dim w = calCommon.GetWeekOfYear(dt, System.Globalization.CalendarWeekRule.FirstDay, 0)

Tables("当周工作显示窗口_Table1").filter = "年份='" & Date.Today.year & "' and sys_weekofyear='" & w & "'"

Else

If e.Form.Controls("Label11").Text = "Last week" Then

Dim calCommon As New System.Globalization.GregorianCalendar()

Dim dt As Date = Date.Today

Dim w = calCommon.GetWeekOfYear(dt, System.Globalization.CalendarWeekRule.FirstDay, 0)

Tables("当周工作显示窗口_Table1").filter = "年份='" & Date.Today.year & "' and sys_weekofyear='" & w & "'"

Else

Dim str As String = e.form.controls("Label11").text

str = str.SubString(3, str.length-0)

Dim ary = str.split("-")

Tables("当周工作显示窗口_Table1").filter = "年份='" & ary(0) & "' and sys_weekofyear='" & ary(1) & "'"

End If

此主题相关图片如下：搜狗截图19年09月03日1610_2.jpg

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2019/9/3 16:18:00 [只看该作者]

这样你就明白了：

Dim str As String = e.form.controls("Label11").text

MessageBox.Show(str)

str = str.SubString(3, str.length-0)

MessageBox.Show(str)

Dim ary = str.split("-")

MessageBox.Show(ary(0) & "----" & ary(1))

Tables("当周工作显示窗口_Table1").filter = "年份='" & ary(0) & "' and sys_weekofyear='" & ary(1) & "'"

yangwenghd

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

加好友

发短信

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

Post By：2019/9/3 16:35:00 [只看该作者]

谢谢老师，好方法，问题解决了，知识也学习了，感谢

下一主题 >> << 上一主题

主题：筛选周行