主题：Table的复选框排序

我想达到一个效果， 表的复选框显示，  凡是  选中的行， 自动排在最前列， 没选中的根据 名字 来升序排列，该怎样能达到这种效果呢？

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

 

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

 

 勾选的行，赋值为 1名字

 

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

 

 

 

 

请问，怎样插入临时列 呢？

 参考

 

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