主题：求助换行前保存当前行的代码

设置在BeforeSelChange事件:

If e.OldRange.RowSel <> e.NewRange.RowSel Then
    e.Table.Current.Save()
End If

4楼代码的逻辑有问题，你应该另外在BeforeAddDataRow事件也设置一下代码：
 
http://help.foxtable.com/topics/0629.htm

 
当前行不符合条件，就禁止增加行。

Dim r As Row =  Tables("xxx").Current
If  r IsNot Nothing Then
    If r.IsNull("供应商_名称") OrElse r.IsNull("供应商_帐户名称") OrElse r.IsNull("采购用途") Then
        MessageBox.Show("采购订单表中当前行的'供应商名称;供应商帐户名称,采购用途'均为必输项不能为空,请完整录入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Exclamation)
        e.Cancel = True
    Else
        r.Save()
    End If
End If