- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]数据检录信息判断 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=139943)
-- 发布时间：2019/8/26 11:42:00
-- [求助]数据检录信息判断
此主题相关图片如下：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
-- 发布时间：2019/8/26 11:56:00
--
单元格是否为空使用isnull判断：http://www.foxtable.com/webhelp/topics/0595.htm
-- 发布时间：2019/8/26 12:26:00
--
With Tables("收入记账") \'信息录入不完整,无法保存
Dim nr As Row = Tables("收入记账").Current
If nr.IsNull("收入类型") OrElse nr.IsNull("收入日期") OrElse nr.IsNull("账户") OrElse nr.IsNull("生意伙伴") OrElse nr.IsNull("金额") OrElse nr.IsNull("项目名称") OrElse nr.IsNull("经办人")
Dim Result1 As DialogResult
Result1 = MessageBox.Show("数据录入不完整,删除该条数据!", "提示")
Tables("收入记账").Current.Delete
Tables("收入记账").AddNew()
End If
End With
老师是改成这样吗，还是一样，进入窗体不输入任何信息马上退出，还是会提示，我是希望没有录入操作，则不提示，录入了一个或者一个以上的不完整信息，则弹出改提示
-- 发布时间：2019/8/26 13:39:00
--
dim str() as string = {"收入类型","收入日期"}
dim m as integer = 0
With Tables("收入记账") \'信息录入不完整,无法保存 Dim nr As Row = Tables("收入记账").Current |
for each s as string in str
if nr.isnull(s) then m += 1
next
if m > 0 andalso m <> str.length then
Dim Result1 As DialogResult
Result1 = MessageBox.Show("数据录入不完整,删除该条数据!", "提示")
Tables("收入记账").Current.Delete
Tables("收入记账").AddNew()
end if
End With