以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]写了ValueChanged事件后,无法清空日期控件的值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64998)

--  作者:youkacard
--  发布时间:2015/3/6 17:23:00
--  [求助]写了ValueChanged事件后,无法清空日期控件的值
求助
--  作者:Bin
--  发布时间:2015/3/6 17:24:00
--  
问题能否具体一点,太过笼统无法知道你到底是什么问题.
--  作者:youkacard
--  发布时间:2015/3/6 17:24:00
--  
窗口1
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar


--  作者:有点甜
--  发布时间:2015/3/6 17:26:00
--  

写到TextChanged事件,代码

 

Dim riqi As String = e.Form.Controls("DateTimePicker1").text
CurrentTable.Filter = "查询日期 = #" & riqi & "#"


--  作者:youkacard
--  发布时间:2015/3/6 17:29:00
--  
甜版 清空不了日期控件的值呀
--  作者:有点甜
--  发布时间:2015/3/6 17:36:00
--  

Dim d As Date
If Date.TryParse(e.Sender.Text, d)  Then
    CurrentTable.Filter = "查询日期 = #" & d & "#"
    e.Sender.text = ""
End If


--  作者:lsy
--  发布时间:2015/3/6 17:36:00
--  
ValueChanged

Dim btn As WinForm.Button = e.Form.Controls("Button1")
If btn.Focused = False Then
    Dim riqi As String = e.Form.Controls("DateTimePicker1").Value
    CurrentTable.Filter = "查询日期 = \'" & riqi & "\'"
End If

--  作者:youkacard
--  发布时间:2015/3/6 17:49:00
--  
谢谢两位老师