主题：[求助]本行未保存前 不允许离开此行？【已解决】

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) '获得原来选择的行

        Dim nms() As String={"会员姓名","手机号码","性别"}

        For Each nm As String In nms

            If r.Isnull(nm) Then  

                e.cancel=True        '为空就取消操作

                messagebox.show(nm & "必须输入内容")

                Return

            Else

                r.Save()      ’满足条件，保存

            End If

        Next

        

    End If

End If