可以考虑这样:
Dim idx as Integer = DataTables("xxx").SQLCompute("Max((_Identify))")
增加行多行并保存的代码
DataTables("xxx").LoadFilter = "[_Identify] > “ & idx
DataTables("xxx").Load()