主题：[求助]日期

  Dim rq As Date = r("日期")
        'Dim y As Integer = rq.year
        'Dim m As Integer = rq.month
        'Dim d As Integer = rq.Day
        'Dim str As Date = new Date(y,m,d,0,0,0)
        'Dim enr As Date = new Date(y,m,d,23,59,59)
        'Dim drs As List(of DataRow) = DataTables("TimeRecords").SQLSelect("emp_id = '" & r("工号") & "' and sign_time >= '" & str & "' and sign_time<= '" & enr & "'","","sign_time")

我想问一下这个代码里面的SQLSELECT 的条件有没有办法优化一下,sign_time 是带时间的日期

Dim rq As Date = r("日期")
Dim drs As List(of DataRow) = DataTables("TimeRecords").SQLSelect("emp_id = '" & r("工号") & "' and sign_time >= '" & rq & "' and sign_time< '" & rq.AddDays(1) & "'","","sign_time")

我还想问一下，table 在筛选后，有没有办法获取到它的filter,我就想主表筛选后，副本表跟着一起筛选，如果用代码写条件是可以做到。

 不是可以编写AfterFilter事件？

 

http://www.foxtable.com/webhelp/scr/2060.htm

 

'If forms("一卡通打卡数据查看窗口").Opened = True
    'Dim t As Table  = Tables("一卡通打卡数据查看窗口_table1")
    'Dim s As String =  e.Table.Filter
  ''  MessageBox.show(s)
    't.filter = s
'End If

写在这里，这个表一筛选，系统就退出去了。应该进入了死循环，用弹窗，这个窗口关不掉。

改成

 

If e.Table.Name <> "一卡通打卡数据查看窗口_table1" AndAlso forms("一卡通打卡数据查看窗口").Opened = True
    Dim t As Table  = Tables("一卡通打卡数据查看窗口_table1")
    Dim s As String =  e.Table.Filter
    MessageBox.show(s)
    t.filter = s
End If

 

老师:你的这个代码还是不行，窗口中的表没有被筛选，那个弹窗也没有出来，也就是说条件不成立。

加入msgbox(e.Table.Name) 看弹出的表名是哪个。