Foxtable(狐表)用户栏目专家坐堂 → 这个代码怎样写


  共有13762人关注过本帖树形打印复制链接

主题:这个代码怎样写

帅哥哟,离线,有人找我吗?
老有所乐
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
这个代码怎样写  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
这个代码怎样写  发帖心情 Post By:2011/11/18 12:10:00 [显示全部帖子]

贺老师,就一枪给毙了?
[此贴子已经被作者于2011-11-18 12:10:22编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
老有所乐
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
这个代码怎样写  发帖心情 Post By:2011/11/18 13:43:00 [显示全部帖子]

谢谢C版和贺老师!

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


 回到顶部
帅哥哟,离线,有人找我吗?
老有所乐
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
这个代码怎样写  发帖心情 Post By: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版,这个改成按钮代码如何改

 回到顶部
帅哥哟,离线,有人找我吗?
老有所乐
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
这个代码怎样写  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
老有所乐
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
这个代码怎样写  发帖心情 Post By:2011/11/18 21:39:00 [显示全部帖子]

谢谢C版!

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
老有所乐
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
这个代码怎样写  发帖心情 Post By:2011/11/18 22:06:00 [显示全部帖子]

        谢谢C版主帮助理解!

 回到顶部