主题：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