[求助]按日期搜索的代码的错误在哪里 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]按日期搜索的代码的错误在哪里

共有1354人关注过本帖树形打印复制链接主题：[求助]按日期搜索的代码的错误在哪里

leeswayne

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：88 积分：878 威望：0 精华：0 注册：2017/10/8 21:25:00

[求助]按日期搜索的代码的错误在哪里 发帖心情

Post By：2018/12/11 15:06:00 [只看该作者]

老师好，在菜单设计的按录单日期查找的组合工具按钮输入以下代码：

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

Tables("订单").Filter = ""

Tables("订单").Filter = "录单日 = '" & ldr & "'"

但是显示出错，请问是哪里需要做修改？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：88 积分：878 威望：0 精华：0 注册：2017/10/8 21:25:00

Post By：2018/12/11 15:45:00 [只看该作者]

还是提示错误。具体错误提示为:

.NET Framework 版本：2.0.50727.8937

Foxtable 版本：2018.9.9.1

错误所在事件：菜单,查找,Click

详细错误信息：

未找到类型“DatePicker”的公共成员“Text”。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/11 15:46:00 [只看该作者]

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

下一主题 >> << 上一主题

主题：[求助]按日期搜索的代码的错误在哪里