主题：这个代码怎样写

不知道这样做有何必要。、

如果一定坚持可以试试在增加行后执行事件中设置：

Dim n As Integer = e.DataTable .DataRows(e.DataTable .DataRows.count -10)("编号")
Tables("表A").Filter = " [编号] <= 5 or [编号] >= " & n

另外删除行后也要设置代码。

应该这样吧，为什么你懂的。

Dim dt As DataTable = DataTables("表A")
Dim n As Integer = dt.DataRows(dt .DataRows.count -10)("编号")
Tables("表A").Filter = " [编号] <= 5 or [编号] >= " & n

你是直接从table中取值（可见行），一次筛选后是正确结果，再按一次会从可见行的总行数减去指定的行数取值，那么此时的筛选表达式就成了“ [编号] <= 5 or [编号] >=6”，显然这违背你之前的意愿。

从datatable取值所以也就不存在这个问题了。

 当然如果说二用就另说了。