以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Listview分页后排序显示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108959)
--  作者：kb9702
--  发布时间：2017/11/1 14:49:00
--  [求助]Listview分页后排序显示
Listview示例中，示例十五如何按照面积排序显示，第一页显示的是面积排前1-5的国家，第二页显示6-10的国家。
--  作者：有点甜
--  发布时间：2017/11/1 15:44:00
--  

只需要把

 

For idx As Integer = idx1 To idx2
    Dim dr As DataRow = DataTables("国家").DataRows(idx) \'根据行位置从数据表中取得对应的DataRow

 

改成

 

Dim drs = DataTables("国家").Select("", "面积 desc")

For idx As Integer = idx1 To idx2
    Dim dr As DataRow = drs(idx) \'根据行位置从数据表中取得对应的DataRow

 
--  作者：kb9702
--  发布时间：2017/11/1 16:18:00
--  
非常感谢甜版，搞定了。。