专家坐堂-初始日期为空怎么写？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  初始日期为空怎么写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65942)

--  作者：jswjyjf
--  发布时间：2015/3/26 9:22:00
--  初始日期为空怎么写？

e.Form.Controls("rq").value=Nothing
e.Form.Controls("ComboBox1").value=Nothing
Tables("加工单").filter="

其中rq 为日期控件这样写对吗

--  作者：有点甜
--  发布时间：2015/3/26 9:24:00
--

这种问题，你试一下不就行了？

e.Form.Controls("rq").value=Nothing
e.Form.Controls("ComboBox1").value=Nothing
Tables("加工单").filter = ""

--  作者：jswjyjf
--  发布时间：2015/3/26 9:25:00
--

我试了出错啊不知道怎么写

--  作者：jswjyjf
--  发布时间：2015/3/26 9:25:00
--

不知道错在哪里

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

拷贝2楼代码。

报什么错。

--  作者：jswjyjf
--  发布时间：2015/3/26 9:29:00
--

这样的错误

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

--  作者：有点甜
--  发布时间：2015/3/26 9:30:00
--
你去看日期控件是否写了什么事件代码，比如 TextChanged和ValueChanged事件

--  作者：jswjyjf
--  发布时间：2015/3/26 9:31:00
--

找到原因了因为日期控件有个valchanged 事件 Tables("加工单").filter="[客户名称]=\'" & e.Form.Controls("ComboBox1").value & "\'and [加工日期]=\'" & e.Form.Controls("rq").value & "\'"

--  作者：jswjyjf
--  发布时间：2015/3/26 9:31:00
--

该怎么写事件代码才不出错

--  作者：有点甜
--  发布时间：2015/3/26 9:33:00
--
If e.Form.Controls("ComboBox1").Text > "" AndAlso e.Form.Controls("rq").value <> Nothing Then
    Tables("加工单").filter="[客户名称]=\'" & e.Form.Controls("ComboBox1").value & "\'and [加工日期]=#" & e.Form.Controls("rq").value & "#"
End If