此主题相关图片如下：qq截图20190826113200.png
在窗体before close事件做了数据检录信息判断，如果信息不完整，退出则提示删除该条数据，但是进入窗体不做任何操作退出也会有该提示，应该如何修改代码了，进入未输入任何信息就不执行该代码操作，麻烦老师指导下
With Tables("收入记账") '信息录入不完整,无法保存
Dim nr As Row = Tables("收入记账").Current
If nr("收入类型") = Nothing OrElse nr("收入日期") = Nothing OrElse nr("账户") = Nothing OrElse nr("生意伙伴") = Nothing OrElse nr("金额") = Nothing OrElse nr("项目名称") = Nothing OrElse nr("经办人") = Nothing
Dim Result1 As DialogResult
Result1 = MessageBox.Show("数据录入不完整,删除该条数据!", "提示")
Tables("收入记账").Current.Delete
Tables("收入记账").AddNew()
End If
End With
加好友 
发短信
Post By：2019/8/26 11:42:00 [只看该作者]
