- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 按时间查询 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63614)
-- 发布时间：2015/1/25 0:48:00
-- 按时间查询
感谢 感谢 有没办法点击按钮显示的时间范围 把关联表的列显示到窗口表里面 感谢 感谢
此主题相关图片如下：qq截图20150125004922.jpg
[此贴子已经被作者于2015-1-25 0:48:03编辑过]
-- 发布时间：2015/1/25 9:08:00
--
参考例子 http://www.foxtable.com/help/topics/2720.htm
-- 发布时间：2015/1/25 10:03:00
--
感谢 感谢 只是要把关联表筛选到窗口的表应该怎么改 ！感谢 感谢
-- 发布时间：2015/1/25 10:19:00
--
一样啊，绑定关联表，然后直接筛序 Tables("表A.表B").Filter = "xxx"
-- 发布时间：2015/1/25 10:20:00
--
好的 感谢 感谢
-- 发布时间：2015/1/25 10:33:00
--
能帮我看看吗 ？刚才以周为示例 还是不行 麻烦你了
Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek \'算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(-w) \'获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w) \'获取本周的最后一天
Dim Filter As String
Filter = "日期" >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("表A.表B").Filter = "窗口1_Table1"
-- 发布时间：2015/1/25 10:35:00
--
Tables("表A.表B").Filter = Filter
-- 发布时间：2015/1/25 10:45:00
--
感谢 感谢 可以了 谢谢谢谢
能再帮我看看吗
如果把 "表A.表B" 显示到 窗口1 Table1应该怎么改一下啊 谢谢
Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek \'算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(-w) \'获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w) \'获取本周的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("表A.表B").Filter = Filter
[此贴子已经被作者于2015-1-25 10:46:00编辑过]
-- 发布时间：2015/1/25 11:05:00
--
Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek \'算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(-w) \'获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w) \'获取本周的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("窗口1_Table1").Filter = Filter
是不是要怎么加一句啊
感谢 感谢
-- 发布时间：2015/1/25 11:14:00
--
绑定啊 http://www.foxtable.com/help/topics/1905.htm