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

1、直接这样：

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
2、屏蔽掉这一句，以后手工选择：

      e.Form.Controls("DateTimePicker1").Select()

主要怀疑第二点，当Tables("采购订单").AddNew()触发事件，正在执行的同时e.Form.Controls("DateTimePicker1").Select()让采购订单表表失去了焦点，导致该事件的 e.Table.Current 执行错误。

 

仅个人认为，可能是上述逻辑错误，没测试，也可能判断不准确，如果您测试确实如此，那就有解决办法！

马后炮了！

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

贺老师，新增行以后，鼠标焦点在新增的行，可否不判断 r IsNot Nothing ？当在BeforeAddDataRow事件中设置的代码，也必须判断当前行是否为空吗？（没测试，偷懒问一句，谢谢）