主题：自动更新序号的问题?

AfterMoveRow事件

If e.NewIndex < e.OldIndex Then
    Tables("表A").Rows(e.OldIndex)("第一列") = e.NewIndex+2
    Tables("表A").Rows(e.NewIndex)("第一列") = e.OldIndex
Else
    Tables("表A").Rows(e.OldIndex)("第一列") = e.NewIndex
    Tables("表A").Rows(e.NewIndex)("第一列") = e.OldIndex+2
End If

DataRowAdded事件
e.DataRow("第一列") = e.DataTable.DataRows.Count

BeforeDeleteDataRow事件

Dim wz As Integer = e.DataRow("第一列")
For idx As Integer  = wz-1 To e.DataTable.DataRows.Count-1
    e.DataTable.DataRows(idx)("第一列") = idx
Next

说实在，这种业务意义不大，而且不能筛选