主题：这个代码怎样写

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

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

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

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