定期重置SortKey列：
Dim cnt As IntegerFor Each dr As DataRow In DataTables("表A").Select("","_SortKey") dr.BaseRow("_SortKey") = cnt cnt = cnt + 1Next
加好友 
发短信
Post By：2013/11/22 8:32:00 [显示全部帖子]
