主题：求助：日期查询问题

在菜单的功能区中有一个日期输入框和一个查询按钮，查询按钮代码如下:但输入日期后总是提示：请老师给看看是哪里错了！谢谢！

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

r = .FindRow("日期 = '" & rqsr.Value & "'", .Position + 1, True )

 

改成

 

r = .FindRow("日期 = #" & rqsr.Value & "#", .Position + 1, True )

换成上面的还是不行，还提示转换无效

If rqsr.Value = "" Then

 

改成

 

If rqsr.Value = Nothing Then

换成If rqsr.Value = Nothing Then可以了，谢谢大红袍老师。看来自己写代码的水平不是一般的差啊。这样一句代码搞了半天也没搞定！