标题：这个代码怎样写

1楼

老有所乐 发表于：2011/11/18 11:19:00

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

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

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

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

谢谢!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目20.table

[此贴子已经被作者于2011-11-18 17:08:12编辑过]

2楼

狐狸爸爸 发表于：2011/11/18 11:22:00

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

3楼

老有所乐 发表于：2011/11/18 12:10:00

贺老师,就一枪给毙了?

[此贴子已经被作者于2011-11-18 12:10:22编辑过]

4楼

czy 发表于：2011/11/18 12:34:00

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

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

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

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

5楼

老有所乐 发表于：2011/11/18 13:43:00

谢谢C版和贺老师!

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

6楼

老有所乐 发表于：2011/11/18 16:34:00

以下是引用czy在2011-11-18 12:34:00的发言：

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

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

7楼

blackzhu 发表于：2011/11/18 16:55:00

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

8楼

老有所乐 发表于：2011/11/18 17:05:00

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

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

[此贴子已经被作者于2011-11-18 17:07:52编辑过]

9楼

czy 发表于：2011/11/18 21:04:00

以下是引用老有所乐在2011-11-18 17:05:00的发言：

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

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

[此贴子已经被作者于2011-11-18 17:07:52编辑过]

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

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

10楼

老有所乐 发表于：2011/11/18 21:39:00

谢谢C版!

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

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

共12 条记录, 每页显示 10 条, 页签: [1] [2]