主题：[求助]还是时间过滤问题？

我有一张表，有日期列，时间列。因为表的时间性太强！可是我想看在指定的时间内是否已经录入数据了，可是我编的代码却找不出来，也就是表明还未录入该事件数据，又重新录入，我查看结果了，重复得不能再重复了！

 tdr = tbl股piao池记录表.Select( "[股piao池名称] = '" &  PoolName & "' And [进入时间] = #" & dtTodayTime & "# And [股piao代码] = " & CInt(StockC) )
        If tdr.Count<1 Then
            dr =tbl股piao池记录表.AddNew()
            iCn=iCn+1
            dr("股piao池名称")=PoolName
            dr("股piao代码")=CInt(StockC)
            dr("进入日期")=dtTodayTime.Date
            dr("进入时间")=dtTodayTime 

            dr("进入价格")=sPrice
        End If
dtTodayTime是日期时间数据；录入后dr("进入时间")是正确的，比如8：45

不理解！！我的dtTodayTime就是“2017-06-20 8：45”这样的。您意思是把后面的秒数归零？

d = New Date(1900, 1, 1, d.hour, d.minute, 0)

这个，哪个是月哪个是日？

哦，谢谢。这个好像说明里面没有，在说明里面没有搜到

不行呀！还是过滤不了时间，

Dim dtTodayTime As Date = nowdt.AddSeconds(AddNum)
        dtTodayTime=NEW Date(dtTodayTime.Year, dtTodayTime.Month ,dtTodayTime.Day ,dtTodayTime.Hour,dtTodayTime.Minute,0 )
    Dim tdr As List(Of DataRow) ' =DataTables("今日提醒").Select( "[提醒来源] = '" &  PoolName & "' And [进入时间] = #" & dtTodayTime & "# And [股piao代码] = " & CInt(StockC) )
        Dim dr As DataRow
        If PoolName="5分钟买入池" OrElse PoolName="15分钟买入池" OrElse PoolName="60分钟买入池" OrElse PoolName="5分钟卖出池" OrElse PoolName="15分钟卖出池" OrElse  PoolName="60分钟卖出池" Then
            tdr =DataTables("今日提醒").Select( "[提醒来源] = '" &  PoolName & "' And [进入日期] = #" & dtTodayTime & "# And [股piao代码] = " & CInt(StockC) )
            If tdr.Count<1 Then
                dr =DataTables("今日提醒").AddNew()
                dr("提醒来源")=PoolName
                dr("股piao代码")=CInt(StockC)
                dr("是否操作中")=True
                dr("进入日期")=dtTodayTime '.Date'new Date().AddHours(FileTime.Hour).AddMinutes(FileTime.Minute) 'cdate(sDateIn)
                dr("提醒价位")=sPrice
                dr("播报次数")=0
                dr("是股piao")=True
            End If
        End If
        tdr = tbl股piao池记录表.Select( "[股piao池名称] = '" &  PoolName & "' And [进入时间] = #" & dtTodayTime & "# And [股piao代码] = " & CInt(StockC) )
        ' OutputInfo( True,"[股piao池名称] = '" &  PoolName & "' And [进入日期] = #" & FileTime.Date & "# num=" & tdr.Count)
        If tdr.Count<1 Then
            dr =tbl股piao池记录表.AddNew()
            iCn=iCn+1
            dr("股piao池名称")=PoolName
            dr("股piao代码")=CInt(StockC)
            dr("进入日期")=dtTodayTime.Date
            dr("进入时间")=dtTodayTime '.Date'new Date().AddHours(FileTime.Hour).AddMinutes(FileTime.Minute) 'cdate(sDateIn)
            dr("进入价格")=sPrice
        End If

哎，是时间呀，不是日期。贴张图片上来，解释说明下，贴出的图，同一只股piao有3条记录，除了前面的ID，其它一模一样，这是我不希望的。但由于时间不同，则允许再产生一条记录，只要时间日期相同，就不要记录了！！！

 

此主题相关图片如下：功能区-1.png

为什么我这个就不行？看我图片，时间值显示的很正常呀！

dtTodayTime=NEW Date(dtTodayTime.Year, dtTodayTime.Month ,dtTodayTime.Day ,dtTodayTime.Hour,dtTodayTime.Minute,0 )