Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问老师：排序状态怎样保存？


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

主题：请问老师：排序状态怎样保存？
帅哥哟，离线，有人找我吗？
wengfuyy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：125 积分：918 威望：0 精华：0 注册：2013/4/12 2:00:00 		请问老师：排序状态怎样保存？  发帖心情 Post By：2013/4/16 23:51:00 [只看该作者]

我在foxtable里设置了某列的排序为降序，保存后退出，再打开程序时，原来设置的排序方式没有了。
请问：排序是不能保存的吗？
如果回答是肯定的，那么，是否需要编写程序才能实现排序？
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2013/4/17 0:30:00 [只看该作者]

排序的同时重置排序列！

 回到顶部
帅哥哟，离线，有人找我吗？
wengfuyy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：125 积分：918 威望：0 精华：0 注册：2013/4/12 2:00:00 		  发帖心情 Post By：2013/4/17 8:41:00 [只看该作者]

谢谢程老师，但没明白您的意思。我是个初学都，不知是否可再说详细些。

 回到顶部
帅哥哟，离线，有人找我吗？
muhua
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：等待验证 帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00 		  发帖心情 Post By：2013/4/17 9:33:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2013/4/17 9:35:00 [只看该作者]

贴出您的排序代码，一并给您解决了！

 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2013/4/17 19:05:00 [只看该作者]

这样可以保存排序结果：

 

 

Tables("表A").Sort="姓名"

Dim drs As List(of DataRow) = DataTables("表A").Select("","[_SortKey]")
For i As Integer = 0 To drs.Count - 1
    drs(i).BaseRow("_SortKey") = i
Next

Tables("表A").Sort=""
 回到顶部
帅哥哟，离线，有人找我吗？
wengfuyy
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：125 积分：918 威望：0 精华：0 注册：2013/4/12 2:00:00 		  发帖心情 Post By：2013/4/17 23:02:00 [只看该作者]

谢谢两位老师。
muhua老师的回复简单易懂，但我试了，没成功；程老师的代码我不知道该写在哪儿，故没能测试。
可能是我问题没描述清楚：
有两表，表A叫“问题清单”（父表），表B叫“处理记录”（子表）。当我点击表A中的任一条记录条时，表B里会出现对这个问题的处理记录（多条）。我希望表B是按“日期”降序排列，便于我查看最新记录。

请两位再次老师不吝赐教！
谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2013/4/17 23:44:00 [只看该作者]

Tables("表B").Sort="日期 DESC"

Dim drs As List(of DataRow) = DataTables("表B").Select("","[_SortKey]")
For i As Integer = 0 To drs.Count - 1
    drs(i).BaseRow("_SortKey") = i
Next

Tables("表B").Sort=""
 回到顶部
帅哥哟，离线，有人找我吗？
wengfuyy
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：125 积分：918 威望：0 精华：0 注册：2013/4/12 2:00:00 		  发帖心情 Post By：2013/4/18 0:22:00 [只看该作者]

请问程老师，你提供的代码应该写在哪个位置？

 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40556 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2013/4/18 0:44:00 [只看该作者]

您原来写在哪里还写在哪里，实在不行写在按钮里，也可以切换到表A后执行

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询