执行这段代码
For Each r As Row In Tables("表a").Rows r.DataRow.baserow("_Sortkey") = r.IndexNext
Tables("表a").Save