以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]我有一张表日期为日期时间，可选该日数据时找不到！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100286)
--  作者：小美菜
--  发布时间：2017/5/8 19:14:00
--  [求助]我有一张表日期为日期时间，可选该日数据时找不到！
我有一张表日期字段为日期时间，可做过滤条件时过滤日期仅为日期，一条数据也找不到！本意只要是该日期就应该选出
--  作者：有点蓝
--  发布时间：2017/5/8 20:37:00
--  
Dim d As Date = Date.Now
Tables("表A").Filter = "日期 >= #" & d.Date & "# and 日期 < #" & d.Date.AddDays(1) & "#"
--  作者：小美菜
--  发布时间：2017/5/8 21:00:00
--  
不行的，我的语句与这个差不多
--  作者：小美菜
--  发布时间：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
--  作者：小美菜
--  发布时间：2017/5/8 21:05:00
--  

Dim drs As List(of DataRow) =DataTables("今日股票池").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("股票池历史记录表").AddNew()
Next
\'DataTables("今日股票池").DeleteFor("")\'"进入日期 = #" & Date.Today.AddDays(-3) & "#" )
DataTables("今日股票池").save()

这个差不多吧，可是一条也没有找到
--  作者：有点蓝
--  发布时间：2017/5/8 21:12:00
--  
回4楼

Dim FormName As  String = Args(0)\'
If Forms.Contains(FormName) Then
    return Forms(FormName).Opened
Else
    return False
End If

回5楼

DataTables("今日股票池").Select("进入日期 > #" & Date.Today.AddDays(-4) & "# and 进入日期 < #" & Date.Today & "#"  )

如果找不到，肯定这个时间段内没有数据
--  作者：小美菜
--  发布时间：2017/5/8 21:17:00
--  
嗯，这个代码比我好太多。不过时间问题是因为找不到，所以我才搞双引号，全部找。时段内一定有数据，只是那个时间字段是日期时间。
--  作者：有点蓝
--  发布时间：2017/5/8 21:26:00
--  
6楼的条件和是否有时间没有关系