主题：[求助]如何让新增行排在第一行？

表DataRowAdded事件代码：

Tables("表A").Rows(Tables("表A").Rows.Count-1).Move(0)
Dim drs As List(of DataRow) = DataTables("表A").Select("","[_SortKey]")
For i As Integer = 0 To drs.Count - 1
    drs(i).BaseRow("_SortKey") = i
Next

---------------

想改为全局表代码，即指定的表，在datarowadded时，才执行上述代码

想来是select的语句，如下示意，但如何改一下？

选定的表,新增的行自动排到第一行

Select Case e.Table.Name

    Case "表A"

        Tables("表A").Rows(Tables("表A").Rows.Count-1).Move(0)

        Dim drs As List(of DataRow) = DataTables("表A").Select("","[_SortKey]")

        For i As Integer = 0 To drs.Count - 1

            drs(i).BaseRow("_SortKey") = i

        Next

End Select