Foxtable(狐表)用户栏目专家坐堂 → 有劳袍大师


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

主题:有劳袍大师

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/27 10:04:00 [显示全部帖子]


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/27 10:26:00 [显示全部帖子]

Dim p As Integer = 2
Dim c As Integer = 10
Dim t As Table = Tables("表A")
Dim idxs As String = "-1,"
Dim drs As List(Of DataRow) = t.DataTable.Select("", "_sortkey")
For i As Integer = (p-1)*c To p*c-1
    If i < drs.count Then
        idxs &= drs(i)("_Identify") & ","
    End If
Next
t.filter = "_Identify in (" & idxs & ")"

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/27 10:30:00 [显示全部帖子]

 参考4楼啊。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/27 10:48:00 [显示全部帖子]

 无语,看懂4楼代码啊

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/27 11:11:00 [显示全部帖子]

Dim drs As List(Of DataRow) = t.DataTable.Select("", "_sortkey")

 

直接改成

 

Dim drs As List(Of DataRow) = t.DataTable.Select("", "_sortkey desc")


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/27 11:20:00 [显示全部帖子]

 必须排序。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/27 11:45:00 [显示全部帖子]


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/27 12:03:00 [显示全部帖子]

 1、倒序,你不要用DataTables("国家").DataRows(idx)改成Select排序取出集合drs即可。

 

 2、多使用帮助文档的搜索功能,基本都能找到类似的啊


 回到顶部