主题：日期排序为什么报错误，指点一下

Dim t_tblShanghuafandian As Table = Tables("窗口客户_tblShanghuafandian")

With Tables("窗口客户_tblqitachanpin")
    If .Current Is Nothing Then
        t_tblShanghuafandian.Filter = "False"
    Else
        t_tblShanghuafandian.Filter = "用户号码 = '" & .Current("接入号") & "'order by 日期 desc"
     End If
End With