1、你可以根据_Identify排序,如 Tables("表A").Sort = "_Identify desc"
2、你可以在DataRowadded事件,加入代码
Dim idx As Integer = Tables("表A").FindRow(e.DataRow)If idx >= 0 Then Tables("表A").rows(idx).Move(0)End If