以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4244)
--  作者：老有所乐
--  发布时间：2009/9/6 23:43:00
--  请教

Tables("表A").Filter = " [日期] >= #08/25/2009# "
这是筛选表A 日期等于或大于09年8月25日的第一条纪录起的所有纪录代码，
如果要筛选出表A 日期等于或大于09年8月25日的第二条纪录起的所有纪录，代码如何表述。

谢谢！
--  作者：mr725
--  发布时间：2009/9/7 0:16:00
--  
在你的代码后面加上：
Tables("表A").position =0
Syscmd.Row.HideSelectedRows()
--  作者：老有所乐
--  发布时间：2009/9/7 6:53:00
--  
谢谢mr725老师！
Tables("表A").Filter = " [日期] >= #08/25/2009# "
Tables("表A").position =0
Syscmd.Row.HideSelectedRows()
这个筛选后，要用撤销隐藏系统命令恢复，否则每执行次按钮，就会少一行。
是否还有其他的代码可以实现这个目的。
[此贴子已经被作者于2009-9-7 6:55:01编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/9/7 7:56:00
--  
升级到新版本
--  作者：HLJ
--  发布时间：2009/9/7 8:07:00
--  
Dim T As String = "[日期] >= #08/25/2009#
Dim dr As DataRow = DataTables("表A").Find(T,"日期")
Tables("表A").Filter = "[_Identify]<>" & dr("_Identify") & "And " & T
[此贴子已经被作者于2009-9-7 8:29:46编辑过]
--  作者：老有所乐
--  发布时间：2009/9/7 13:31:00
--  
谢谢HLJ老师，这个可以。