标题：请教

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

谢谢！

在你的代码后面加上：
Tables("表A").position =0
Syscmd.Row.HideSelectedRows()

谢谢mr725老师！
Tables("表A").Filter = " [日期] >= #08/25/2009# "
Tables("表A").position =0
Syscmd.Row.HideSelectedRows()
这个筛选后，要用撤销隐藏系统命令恢复，否则每执行次按钮，就会少一行。
是否还有其他的代码可以实现这个目的。

升级到新版本

Dim T As String = "[日期] >= #08/25/2009#
Dim dr As DataRow = DataTables("表A").Find(T,"日期")
Tables("表A").Filter = "[_Identify]<>" & dr("_Identify") & "And " & T

谢谢HLJ老师，这个可以。