- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何判断出某一行数据中的空值，即：未填项。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66824)
-- 发布时间：2015/4/14 15:11:00
-- [求助]如何判断出某一行数据中的空值，即：未填项。
for each cl as as col in Tables("人力资源库").Current.cols
if cl is null then 某一列的值为空的话
Dim Result As DialogResult
Result = MessageBox.show("您有未填写的项目,确定放弃吗?","提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Tables("人力资源库").Current.Delete
Forms("人力资源界面主窗口").open()
forms("人力资源详细内容窗口").close()
End If
end if
next
这段话老是调试的有问题
-- 发布时间：2015/4/14 15:14:00
--
for each cl as col in Tables("人力资源库").cols if Tables("人力资源库").Current.isnull(cl.name) then 建议你先按部就学习一下帮助,了解一下类型结构和基本语法先 |
-- 发布时间：2015/4/14 15:17:00
--
bin大师：谢谢提醒。
if Tables("人力资源库").Current.isnull(cl.name) 这段话要指明列名吗？
我不希望指明，由系统自己来历遍，
-- 发布时间：2015/4/14 15:19:00
--
请问您在代码中有看到列名吗? 整个代码就是遍历的. 我衷心建议你先按部就学习一下帮助,了解一下类型结构和基本语法先
-- 发布时间：2015/4/14 15:20:00
--
我
先
-- 发布时间：2015/4/14 15:26:00
--
你一楼的代码，不止这个错误，还有逻辑问题，中间要退出循环才行：
Dim r As Row = Tables("人力资源库").Current
For Each cl As As Col In Tables("人力资源库").cols
If r.Isnull(cl.name) Then
Dim Result As DialogResult
Result = MessageBox.show("您有未填写的项目,确定放弃吗?","提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
r.Delete
Forms("人力资源界面主窗口").open()
forms("人力资源详细内容窗口").close()
Exit For
End If
End If
Next
[此贴子已经被作者于2015/4/14 15:26:19编辑过]