以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]长日期查找的问题请教（已解决）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63252)
--  作者：黄训良
--  发布时间：2015/1/16 22:44:00
--  [求助]长日期查找的问题请教（已解决）

收发文时间是长日期格式，输入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

[此贴子已经被作者于2015-1-16 23:57:13编辑过]