主题：Identify列的问题

只能写代码了。

如在DataRowAdded事件代码设置代码
e.DataRow("Identify") = DataTables("表A").Compute("Max(Identify)")+1

在DataRowDeleted事件中设计

Dim i As Integer
For Each dr As DataRow In DataTables("表A").DataRows
    i = i + 1
    dr("Identify") = i
Next