- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助：日期查询问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87242)
-- 发布时间：2016/7/6 12:47:00
-- 求助：日期查询问题
在菜单的功能区中有一个日期输入框和一个查询按钮，查询按钮代码如下:但输入日期后总是提示：请老师给看看是哪里错了！谢谢！
Dim rqsr As RibbonMenu.DatePicker = RibbonTabs("数据录入")("日期查找")("日期查找")("日期输入框")
If rqsr.Value = "" Then
MessageBox.Show("请输入日期")
Else
With CurrentTable
Dim r As Integer
r = .FindRow("日期 = \'" & rqsr.Value & "\'", .Position + 1, True )
If r >= 0 Then
.Position = r
Else
MessageBox.Show("输入的日期不存在,请重新输入!", "提示")
End If
End With
End If
此主题相关图片如下：qq图片20160706124132.png
-- 发布时间：2016/7/6 13:45:00
--
r = .FindRow("日期 = \'" & rqsr.Value & "\'", .Position + 1, True )
改成
r = .FindRow("日期 = #" & rqsr.Value & "#", .Position + 1, True )
-- 发布时间：2016/7/6 14:13:00
--
换成上面的还是不行，还提示转换无效
-- 发布时间：2016/7/6 14:14:00
--
If rqsr.Value = "" Then
改成
If rqsr.Value = Nothing Then
-- 发布时间：2016/7/6 14:26:00
--
换成If rqsr.Value = Nothing Then可以了，谢谢大红袍老师。看来自己写代码的水平不是一般的差啊。这样一句代码搞了半天也没搞定！
