主题：这个代码怎样写

                Tables("表A").Filter = " [编号] <= 5 or [编号]>90 "

表A现有编号为1-100,上面的代码是筛选出表A编号小于5号和大于90号的记录,表A显示的是15条记录,如果在增加行,表A显示的就不止是15条记录.

我想要的是不管怎样增加记录,表A显示的始终是编号小于和等于5的记录加上最后15条记录,

代码怎样写(表 datacolchanged  事件 代码) 

谢谢!

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目20.table

不能也不应该这样开发系统的，输入完成后，重新筛选一次即可。

贺老师,就一枪给毙了?

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

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

 

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

 

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

谢谢C版和贺老师!

删除行不要设置代码可以,目的达到,速度还是挺快的,就是会闪一下,如试用不行,再改思路.谢谢!

C版,这个改成按钮代码如何改

Tables("表A").Filter = " [编号] <= 5 or [编号]>90 "  这个可以用于按钮事件的吧.

谢谢blackzhu 老师!我是这样解决的

Dim r As Integer= Tables("表A").Rows.count -15
Tables("表A").Filter = " [编号] <= 5 or [编号] >="  & r

 

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

 

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

谢谢C版!

C版,我8楼的代码也能达到一样的效果,而且可以2用的,点击筛选,再点击又还原了.

怎样理解代码原理,能解析一下吗,谢谢