[求助]我有一张表日期为日期时间，可选该日数据时找不到！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]我有一张表日期为日期时间，可选该日数据时找不到！

共有2217人关注过本帖树形打印复制链接主题：[求助]我有一张表日期为日期时间，可选该日数据时找不到！

小美菜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：651 积分：4945 威望：0 精华：0 注册：2016/1/16 22:42:00

[求助]我有一张表日期为日期时间，可选该日数据时找不到！ 发帖心情

Post By：2017/5/8 19:14:00 [只看该作者]

我有一张表日期字段为日期时间，可做过滤条件时过滤日期仅为日期，一条数据也找不到！本意只要是该日期就应该选出

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/8 20:37:00 [只看该作者]

Dim d As Date = Date.Now

Tables("表A").Filter = "日期 >= #" & d.Date & "# and 日期 < #" & d.Date.AddDays(1) & "#"

小美菜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：651 积分：4945 威望：0 精华：0 注册：2016/1/16 22:42:00

Post By：2017/5/8 21:00:00 [只看该作者]

不行的，我的语句与这个差不多

小美菜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：651 积分：4945 威望：0 精华：0 注册：2016/1/16 22:42:00

Post By：2017/5/8 21:02:00 [只看该作者]

Dim FormName As String = Args(0)'
If FormName.Trim()="" Then Return False
Try
    Dim FrmMain As WinForm.Form = Forms(FormName)
    If frmmain Is Nothing Then Return False
    Return FrmMain.Opened
Catch ex As Exception
    Return False
End Try

我这个为何不能正常，还是要告诉没有窗口名。原意也是如果没有窗口名，则不提示也返回False

小美菜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：651 积分：4945 威望：0 精华：0 注册：2016/1/16 22:42:00

Post By：2017/5/8 21:05:00 [只看该作者]

Dim drs As List(of DataRow) =DataTables("今日股piao池").Select("")'"进入日期 > #" & Date.Today.AddDays(-4).Date & "# and 进入日期 < #" & Date.Today & "#" )
Output.Show(drs.Count)
For Each dr As DataRow In drs
Dim drx As DataRow=DataTables("股piao池历史记录表").AddNew()
Next
'DataTables("今日股piao池").DeleteFor("")'"进入日期 = #" & Date.Today.AddDays(-3) & "#" )
DataTables("今日股piao池").save()

这个差不多吧，可是一条也没有找到