插入行,是根据当前已经加载的数据计算的,如果你只是加载部分行,而且是多人操作的话,插入行有可能有所变动,这个没办法处理。
你可以根据某列排序,然后重置排序列
Dim drs As List(of DataRow) = DataTables("表A").Select("","第一列,第一列,[_SortKey]")For i As Integer = 0 To drs.Count - 1 drs(i).BaseRow("_SortKey") = iNext