主题：自动保存被修改了的行

这样行不？

'选择不同的单元格后执行 AfterSelChange
If e.OldRange.RowSel <> e.NewRange.RowSel Then '如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
        Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
        If r.DataRow.RowState = DataRowState.Modified Then '换行时保存修改行
            r.Save() '保存之
        ElseIf r.DataRow.RowState = DataRowState.Added Then '换行时保存新增行
            r.Save() '保存之
        End If
    End If
End If