专家坐堂-[求助]日期转换判断问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]日期转换判断问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118499)

--  作者：xndd
--  发布时间：2018/5/4 10:58:00
--  [求助]日期转换判断问题
甜版好！

我的数据库里面，日期列存储的是字符型，内容为20180501 这样的字符
在筛选判断的时候，我这样写的：
    If fjr.Text <> "" AndAlso fjr.Text.EndsWith(".com") Then
        With CurrentTable
            .Filter = "[发件人] = \'" & fjr.Text & "\' and [出入站] = \'出站\' and DateSerial(mid([日期],1,4),mid([日期],5,2),mid([日期],7,2)) >= #" & startdate.Value & "# and DateSerial(mid([日期],1,4),mid([日期],5,2),mid([日期],7,2)) <= # " & Enddate & "#"
        End With
        StatusBar.Message1= "筛选出:" & CurrentTable.Rows.Count & "行"

    End If

就是添加了红色部分导致出错

我用Firefox浏览器，升级后居然不能添加附件了。开启了弹出窗口权限啊，广告拦截也关闭了啊。不能弹出添加附件窗口了。

help

--  作者：有点甜
--  发布时间：2018/5/4 11:24:00
--
With CurrentTable
    .Filter = "[发件人] = \'" & fjr.Text & "\' and [出入站] = \'出站\' and 日期 >= \'" & format(startdate.value, "yyyyMMdd") & "\' and 日期 <= \'" & format(Enddate.value, "yyyyMMdd") & "\'"
End With

--  作者：xndd
--  发布时间：2018/5/4 13:47:00
--
收到，原来是这样。