主题：[求助]日期转换判断问题

  甜版好！

我的数据库里面，日期列存储的是字符型，内容为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

With CurrentTable
    .Filter = "[发件人] = '" & fjr.Text & "' and [出入站] = '出站' and 日期 >= '" & format(startdate.value, "yyyyMMdd") & "' and 日期 <= '" & format(Enddate.value, "yyyyMMdd")  & "'"
End With

 收到，原来是这样。