全部

错误提示：无效使用 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)

回复赞