错误提示:无效使用 NULL 值(在线等待)

cyo 2003-03-26 04:27:24
由于数据库里面有的字段是空值,通过查询语句显示在TEXT控件中,空值字段就不能显示,提示:“无效使用NULL值”
Form1.Text3.Text = rs.Fields("工号").Value
Form1.Text4.Text = rs.Fields("姓名").Value
Form1.Text6.Text = rs.Fields("性别").Value
Form1.Text7.Text = rs.Fields("职级").Value
Form1.Text10.Text = rs.Fields("部门").Value
Form1.Text8.Text = rs.Fields("入司日期").Value
Form1.Text9.Text = rs.Fields("离司日期").Value
请赐教!

...全文
75 点赞 收藏 11
写回复
11 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Cooly 2003-03-26
:)

我以前在ASP中经常这么用。VB中没怎么用过。
回复
饮水需思源 2003-03-26
Form1.Text3.Text = rs.Fields("工号").Value & ""

这样简单
回复
chenyu5188 2003-03-26
这样就行了:
Form1.Text3.Text = rs.Fields("工号").Value & ""
Form1.Text4.Text = rs.Fields("姓名").Value & ""
Form1.Text6.Text = rs.Fields("性别").Value & ""
Form1.Text7.Text = rs.Fields("职级").Value & ""
Form1.Text10.Text = rs.Fields("部门").Value & ""
Form1.Text8.Text = rs.Fields("入司日期").Value & ""
Form1.Text9.Text = rs.Fields("离司日期").Value & ""

回复
chenyu5188 2003-03-26
这样就行了:
Form1.Text3.Text = rs.Fields("工号").Value &""
Form1.Text4.Text = rs.Fields("姓名").Value &""
Form1.Text6.Text = rs.Fields("性别").Value &""
Form1.Text7.Text = rs.Fields("职级").Value &""
Form1.Text10.Text = rs.Fields("部门").Value &""
Form1.Text8.Text = rs.Fields("入司日期").Value &""
Form1.Text9.Text = rs.Fields("离司日期").Value &""
回复
freehorse_1981 2003-03-26
你可以在其后加上Rs.fields().value & "",这样就可以由于null值带来的麻烦
回复
cyo 2003-03-26
怎么现在有一些可以显示在控件中,但有一些非NULL值也不能显示啦?
回复
smartluwei 2003-03-26
文本框里不能存放NULL值的吧,
 你应该先判断它是否为空,不为空再赋值,否则就给“”
回复
kongwzg 2003-03-26

IIf 函数


根据表达式的值,来返回两部分中的其中一个。

语法

IIf(expr, truepart, falsepart)

IIf 函数的语法含有下面这些命名参数:

部分 描述
expr 必要参数。用来判断真伪的表达式。
truepart 必要参数。如果 expr 为 True,则返回这部分的值或表达式。
falsepart 必要参数。如果 expr 为 False,则返回这部分的值或表达式。


说明

由于 IIf 会计算 truepart 和 falsepart,虽然它只返回其中的一个。因此要注意到这个副作用。例如,如果 falsepart 产生一个被零除错误,那么程序就会发生错误,即使 expr 为 True。
回复
Cooly 2003-03-26
IIF(条件,为真操作,为假操作)
回复
cyo 2003-03-26
Form1.Text3.Text = IIf(isNull(rs.Fields("工号").Value),"",rs.Fields("工号").Value)能说说IIF是什么函数吗?
回复
Cooly 2003-03-26
Form1.Text3.Text = IIf(isNull(rs.Fields("工号").Value),"",rs.Fields("工号").Value)
Form1.Text4.Text = IIf(isNull(rs.Fields("姓名").Value),"",rs.Fields("姓名").Value)
Form1.Text6.Text = IIf(isNull(rs.Fields("性别").Value),"",rs.Fields("性别").Value)
Form1.Text6.Text = IIf(isNull(rs.Fields("职级").Value),"",rs.Fields("职级").Value)
Form1.Text6.Text = IIf(isNull(rs.Fields("部门").Value),"",rs.Fields("部门").Value)
Form1.Text6.Text = IIf(isNull(rs.Fields("入司日期").Value),"",rs.Fields("入司日期").Value)
Form1.Text6.Text = IIf(isNull(rs.Fields("离司日期").Value),"",rs.Fields("离司日期").Value)
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-03-26 04:27
社区公告
暂无公告