以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Table的复选框排序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102574)
--  作者：zhsenchzhi
--  发布时间：2017/6/22 13:50:00
--  Table的复选框排序
我想达到一个效果， 表的复选框显示，  凡是  选中的行， 自动排在最前列， 没选中的根据 名字 来升序排列，该怎样能达到这种效果呢？
--  作者：有点色
--  发布时间：2017/6/22 14:48:00
--  

 添加一列临时辅助列，给其赋值。

 

 所有行都修改成这样的值 2各自名字

 

 勾选的行，赋值为 1名字

 

 根据辅助列排序，就会按照你的意思排序了。

 

 

 

 
--  作者：zhsenchzhi
--  发布时间：2017/6/22 17:43:00
--  
请问，怎样插入临时列 呢？
--  作者：有点色
--  发布时间：2017/6/22 17:54:00
--  

 参考

 

Dim t As Table = Tables("表A")
t.DataTable.DataCols.Add("临时列", Gettype(String))
For Each r As Row In t.Rows
    r("临时列") = "2" & r("第二列")
Next