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

感谢感谢有没办法点击按钮显示的时间范围把关联表的列显示到窗口表里面感谢感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:按日期查询.table

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

[此贴子已经被作者于2015-1-25 0:48:03编辑过]

感谢感谢只是要把关联表筛选到窗口的表应该怎么改！感谢感谢

能帮我看看吗？刚才以周为示例还是不行麻烦你了

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"

感谢感谢可以了谢谢谢谢

能再帮我看看吗

如果把 "表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编辑过]

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

是不是要怎么加一句啊

感谢感谢

感谢如果绑定了就不能显示关联列了，可以用代码吗谢谢你周末快乐

感谢感谢能在请教你个问题吗？

如果时间是根据DateTimePicker1的时间来显示应该怎么写啊

如果根据DateTimePicker1显示的时间去筛选周月季度

感谢感谢

感谢怎么换到月和季度里面就不能用了呢

能在帮我看看吗谢谢

Dim dd As Date = e.Form.Controls("DateTimePicker1").Value

Dim y As Integer = dd.Year

Dim m As Integer = dd.Month

Dim dt1 As New dd(y, m, 1)

Dim dt2 As New dd(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天

Dim Filter As String

Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

Tables("窗口1_Table1").Filter = Filter & " and 绑定列 = '" & Tables("表A").Current("编号") & "' "

Dim dd As Date = e.Form.Controls("DateTimePicker1").Value

Dim y As Integer = dd.Year

Dim q As Integer = (dd.Month - 1) \ 3 + 1 '计算现在是第几个季度

Dim dt1 As dd(y, 3 * (q - 1) + 1, 1) '获取本季度的第一天

Dim dt2 As dd(y, 3 * q, Date.DaysInMonth(2011,3 * q)) '获取本季度的最后一天

Dim Filter As String

Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

Tables("窗口1_Table1").Filter = Filter & " and 绑定列 = '" & Tables("表A").Current("编号") & "' "

Dim dd As Date = e.Form.Controls("DateTimePicker1").Value

Dim y As Integer = dd.Year

Dim dt1 As dd(y, 1, 1)

Dim dt2 As dd(y, 12, 31)

Dim Filter As String

Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

Tables("窗口1_Table1").Filter = Filter & " and 绑定列 = '" & Tables("表A").Current("编号") & "' "

麻烦了

谢谢

主题：按时间查询