CurrentChanged事件
If e.Table.name = "表A" AndAlso e.Table.current IsNot Nothing Then e.Table.current("第一列") = e.Table.Current.index+1End If