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

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

马后炮了！

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

估计您的系统别的地方有类似的问题，备份后一个一个删除、测试，直到找出最后一个类似问题（初始初始阶段，设计过程中注意每步测试）

 

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

贺老师，新增行以后，鼠标焦点在新增的行，可否不判断 r IsNot Nothing ？当在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事件还是有问题，

你发个项目上来测试吧.