错误提示：无效使用 NULL 值（在线等待）

[cyo]

由于数据库里面有的字段是空值，通过查询语句显示在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
请赐教！

[Cooly]

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)

[cyo]

Form1.Text3.Text = IIf(isNull(rs.Fields("工号").Value),"",rs.Fields("工号").Value)能说说IIF是什么函数吗？

[Cooly]

IIF(条件,为真操作,为假操作)

[kongwzg]

IIf 函数


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

语法

IIf(expr, truepart, falsepart)

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

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


说明

由于 IIf 会计算 truepart 和 falsepart，虽然它只返回其中的一个。因此要注意到这个副作用。例如，如果 falsepart 产生一个被零除错误，那么程序就会发生错误，即使 expr 为 True。

[smartluwei]

文本框里不能存放NULL值的吧，
　你应该先判断它是否为空，不为空再赋值，否则就给“”

[cyo]

怎么现在有一些可以显示在控件中，但有一些非NULL值也不能显示啦？

[freehorse_1981]

你可以在其后加上Rs.fields().value & ""，这样就可以由于null值带来的麻烦

[chenyu5188]

这样就行了：
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]

这样就行了：
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 & ""

[饮水需思源]

Form1.Text3.Text = rs.Fields("工号").Value & ""

这样简单

[Cooly]

:)

我以前在ASP中经常这么用。VB中没怎么用过。