- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 日期选择框怎么用？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95540)
-- 发布时间：2017/1/22 23:22:00
-- 日期选择框怎么用？
DateTimePicker
窗口里有个 日期选择器
在日期选择框里选中日期后
希望能自动筛选 weixin表 time=日期选择器所选的日期
第一次碰这个，还望各位前辈多多指点
我是这么写的在 控件ValueChanged 事件里
Dim txt As String = e.Form.Controls("DateTimePicker1").Text
Dim tbl As Table = Tables("weixin")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "time =" & txt
End If
此主题相关图片如下：捕获.png
[此贴子已经被作者于2017/1/22 23:36:00编辑过]
-- 发布时间：2017/1/22 23:40:00
--
TextChanged事件
Dim d As Date
If Date.TryParse(e.Sender.Text, d) = false Then
Tables("表A").Filter = ""
Else
Tables("表A").Filter = "time = #" & e.Sender.Text & "#"
End If