主题：[求助]长日期查找的问题请教（已解决）

收发文时间是长日期格式，输入2015-01-11，查找不到文件，请老师指点：

Dim Val As Date = Date.Today()
If InputValue(Val, "查找文件","请输入发文日期:" ) Then
    Forms("发文管理").Controls("Table1").Table.DataTable.LoadFilter = "收发文时间 =  '" & val & "' and 收发文类型 = '发文'"
    Forms("发文管理").Controls("Table1").Table.DataTable.Load
End If