Foxtable(狐表)用户栏目专家坐堂 → 小技巧,重置_SortKey列的方法


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

主题:小技巧,重置_SortKey列的方法

帅哥哟,离线,有人找我吗?
L88919138
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:714 积分:6811 威望:0 精华:0 注册:2012/3/1 7:20:00
  发帖心情 Post By:2014/7/22 9:56:00 [只看该作者]

自己顶一下。

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/22 9:57:00 [只看该作者]

以下是引用L88919138在2014-7-21 20:39:00的发言:
这个是写在DataColChanged表事件下吗?

 

重置,单独做一个按钮,需要的时候再重置。


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


加好友 发短信
等级:三尾狐 帖子:714 积分:6811 威望:0 精华:0 注册:2012/3/1 7:20:00
  发帖心情 Post By:2014/7/22 9:59:00 [只看该作者]

谢谢大师指点。

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


加好友 发短信
等级:八尾狐 帖子:1837 积分:12984 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2015/7/22 14:28:00 [只看该作者]

如果重新排序, 如何重置_SortKey按照新的排序序列重新编号呢?


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/22 14:32:00 [只看该作者]

以下是引用seal51在2015/7/22 14:28:00的发言:

如果重新排序, 如何重置_SortKey按照新的排序序列重新编号呢?

 

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

 


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


加好友 发短信
等级:三尾狐 帖子:714 积分:6811 威望:0 精华:0 注册:2012/3/1 7:20:00
  发帖心情 Post By:2015/11/10 19:54:00 [只看该作者]

我一直都在找怎么把排序结果保存下来的办法,但试过你们写的这个代码,发现根本就重置不了"_sortkey"!
最终发现要像下面这样才行,你们对比一下别人写的有什么差别吧!

Dim cnt As Integer
For Each dr As DataRow In DataTables("表A").Select("","_SortKey")
    dr.BaseRow("_SortKey") = cnt
    cnt = cnt + 1
Next

找得好辛苦啊,终于遇上一个



测试下老大代码没有这个代码好用,感恩
帅哥哟,离线,有人找我吗?
surgeme

 回到顶部
总数 16 上一页 1 2