以文本方式查看主题

-  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可以了,谢谢大红袍老师。看来自己写代码的水平不是一般的差啊。这样一句代码搞了半天也没搞定!图片点击可在新窗口打开查看