以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]按日期搜索的代码的错误在哪里  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128600)

--  作者:leeswayne
--  发布时间:2018/12/11 15:06:00
--  [求助]按日期搜索的代码的错误在哪里
老师好,在菜单设计的按录单日期查找的组合工具按钮输入以下代码:

Dim ldr As Date = RibbonTabs("订单管理").Groups("查找订单").Items("按录单日查找").Items("录单日").Text
Tables("订单").Filter = ""
Tables("订单").Filter = "录单日 = \'" & ldr & "\'"

但是显示出错,请问是哪里需要做修改?

--  作者:有点甜
--  发布时间:2018/12/11 15:27:00
--  

报什么错?

 

Dim ldr As String = RibbonTabs("订单管理").Groups("查找订单").Items("按录单日查找").Items("录单日").Text
If ldr <> Nothing Then
    Tables("订单").Filter = "录单日 = #" & ldr & "#"
End If


--  作者:leeswayne
--  发布时间:2018/12/11 15:45:00
--  
还是提示错误。具体错误提示为:

.NET Framework 版本:2.0.50727.8937
Foxtable 版本:2018.9.9.1
错误所在事件:菜单,查找,Click
详细错误信息:
未找到类型“DatePicker”的公共成员“Text”。


--  作者:有点甜
--  发布时间:2018/12/11 15:46:00
--  

Dim ldr As String = RibbonTabs("订单管理").Groups("查找订单").Items("按录单日查找").Items("录单日").Value
If ldr <> Nothing Then
    Tables("订单").Filter = "录单日 = #" & ldr & "#"
End If