主题：自动保存主表及关联表新增行？

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
        Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
        r.Save() '保存之
    End If
End

但如果想系统能自动保存主表和关联表中新增或新修改过的行，应该如何设置？