- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这个代码怎样写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14404)
-- 发布时间：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 11:22:00
--
不能也不应该这样开发系统的，输入完成后，重新筛选一次即可。
-- 发布时间：2011/11/18 12:10:00
-- 这个代码怎样写
贺老师,就一枪给毙了?
-- 发布时间：2011/11/18 12:34:00
--
不知道这样做有何必要。、
如果一定坚持可以试试在增加行后执行事件中设置：
Dim n As Integer = e.DataTable .DataRows(e.DataTable .DataRows.count -10)("编号")
Tables("表A").Filter = " [编号] <= 5 or [编号] >= " & n
另外删除行后也要设置代码。
-- 发布时间：2011/11/18 13:43:00
-- 这个代码怎样写
谢谢C版和贺老师!
删除行不要设置代码可以,目的达到,速度还是挺快的,就是会闪一下,如试用不行,再改思路.谢谢!
-- 发布时间：2011/11/18 16:34:00
-- 这个代码怎样写
Dim n As Integer = e.DataTable .DataRows(e.DataTable .DataRows.count -10)("编号")
Tables("表A").Filter = " [编号] <= 5 or [编号] >= " & n
-- 发布时间：2011/11/18 16:55:00
--
Tables("表A").Filter = " [编号] <= 5 or [编号]>90 " 这个可以用于按钮事件的吧.
-- 发布时间：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 21:04:00
--
谢谢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
-- 发布时间：2011/11/18 21:39:00
-- 这个代码怎样写
谢谢C版!
C版,我8楼的代码也能达到一样的效果,而且可以2用的,点击筛选,再点击又还原了.
怎样理解代码原理,能解析一下吗,谢谢