以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]日期  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97738)
--  作者：kaiyu
--  发布时间：2017/3/17 16:28:00
--  [求助]日期

  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 是带时间的日期
--  作者：有点色
--  发布时间：2017/3/17 16:34:00
--  
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")
--  作者：kaiyu
--  发布时间：2017/3/17 16:47:00
--  
我还想问一下，table 在筛选后，有没有办法获取到它的filter,我就想主表筛选后，副本表跟着一起筛选，如果用代码写条件是可以做到。
--  作者：有点色
--  发布时间：2017/3/17 16:50:00
--  

 不是可以编写AfterFilter事件？

 

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

 
--  作者：kaiyu
--  发布时间：2017/3/20 8:20:00
--  

\'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

写在这里，这个表一筛选，系统就退出去了。应该进入了死循环，用弹窗，这个窗口关不掉。
--  作者：有点色
--  发布时间：2017/3/20 10:31:00
--  

改成

 

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

 
--  作者：kaiyu
--  发布时间：2017/3/20 10:43:00
--  

老师:你的这个代码还是不行，窗口中的表没有被筛选，那个弹窗也没有出来，也就是说条件不成立。
--  作者：有点色
--  发布时间：2017/3/20 13:16:00
--  
加入msgbox(e.Table.Name) 看弹出的表名是哪个。