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

求助换行前保存当前行的代码

我在采购订单表的BeforeSelChange事件设置代码为:

If e.Table.Current IsNot Nothing Then '如果当前行是数据行,也就是Current属性不为空
    If e.NewRange.RowSel <> e.OldRange.RowSel Then '而且即将选择另一行
        If e.Table.Current.IsNull("供应商_名称") OrElse e.Table.Current.IsNull("供应商_帐户名称") OrElse e.Table.Current.IsNull("采购用途") Then '如果编号列为空
            MessageBox.Show("采购订单表中当前行的'供应商名称;供应商帐户名称,采购用途'均为必输项不能为空,请完整录入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Exclamation) '提示用户
            e.Cancel = True '那么取消操作
        Else
            e.Table.Current.Save()
        End If
    End If
End If

窗口增加行按钮代码为：

Tables("采购订单").AddNew()
e.Form.Controls("DateTimePicker1").Select()

当按窗口增加行按钮时，项目就自动关闭退出了，这是为什么？

狐爸，看看4楼的代码，哪里有问题呀？

在BeforeAddDataRow事件中判断上一行的输入不完整（即"供应商_名称" ，"供应商_帐户名称"，"采购用途"为空 ），则禁止增加行的代码不会写呀？狐爸，来一个代码吧？

测试了按以上修改，还是同样出现项目关闭退出

1，采购订单表的BeforeSelChange事件设置代码为:

If e.Table.Current IsNot Nothing Then '如果当前行是数据行,也就是Current属性不为空
    If e.NewRange.RowSel <> e.OldRange.RowSel Then '而且即将选择另一行
        If e.Table.Current.IsNull("供应商_名称") OrElse e.Table.Current.IsNull("供应商_帐户名称") OrElse e.Table.Current.IsNull("采购用途") Then '如果编号列为空
            MessageBox.Show("采购订单表中当前行的'供应商名称;供应商帐户名称,采购用途'均为必输项不能为空,请完整录入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Exclamation) '提示用户
            e.Cancel = True '那么取消操作
        Else
            e.Table.Current.Save()
        End If
    End If
End If

2，采购订单表的BeforeAddDataRow事件设置代码为：

   

Dim r As Row =  Tables("采购订单").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

当增加行时仍然是关闭项目退出？

当只测试采购订单表的BeforeAddDataRow事件，项目不会关闭退出，但是r.Save()对于采购订单表的BeforeSaveDataRow其中的代码，没有响应？

说明采购订单表的BeforeSelChange事件还是有问题，