- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- MouseEnte事件代码！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69527)
-- 发布时间：2015/6/6 16:49:00
-- MouseEnte事件代码！
Textbox
窗口中有好多Textbox,如图，代码设置获得时间，想通过MouseEnte事件代码执行
Tables("主窗口_Table22").Filter = "事件日期 = #" & Date.Today & "#"
求助？
此主题相关图片如下：qq截图20150606164659.jpg
此主题相关图片如下：qq截图20150606164659.jpg[此贴子已经被作者于2015/6/6 16:49:09编辑过]
-- 发布时间：2015/6/6 16:50:00
--
也就是通过鼠标进入控件的时候执行获得textbox中的日期并执行代码，求助？
[此贴子已经被作者于2015/6/6 16:51:03编辑过]
-- 发布时间：2015/6/6 17:05:00
--
求大神指点？
-- 发布时间：2015/6/6 20:28:00
--
Dim s As String = e.form.Sender.Text
Tables("主窗口_Table22").Filter = "事件日期 = #" & s.subtring(0,2) & "-" & s.subtring(3,2) & "-" & s.subtring(6,2) & "#"参考：
http://www.foxtable.com/help/topics/1421.htm
http://www.foxtable.com/help/topics/1338.htm
-- 发布时间：2015/6/6 22:39:00
--
出现了这样的错误！求大神帮看看！
此主题相关图片如下：qq截图20150606223707.jpg
-- 发布时间：2015/6/6 23:15:00
--
求助！
-- 发布时间：2015/6/7 1:14:00
--
Dim s As String = e.Form.Controls("TextBox1").Text
Dim s As String = Cdate (#xxxx/xx/xx#)
Tables("主窗口_Table22").Filter = "事件日期 = #"s"#"
真的不会写了，求教？
-- 发布时间：2015/6/7 9:06:00
--
顶起
-- 发布时间：2015/6/7 9:22:00
--
求大神帮看看吧！跪求！
-- 发布时间：2015/6/7 9:41:00
--
Dim s As String = e.Sender.Text
Dim d As Date = new Date (2000 + s.substring(0,2), s.substring(3,2), s.substring(6,2))
\'msgbox(d)
Tables("主窗口_Table22").Filter = "事件日期 = #" & d & "#"