请教一个函数问题

guoya

我写了一个根据有无文件代字以及时间格式确定文号内容的函数，但是我在报表中利用此函数执行时，如果第一个判断为真时，也就是没有文件代字时，总是显示错误，而没有像预想的那样"wh"为空字符串，请问错在那里？
Public Function WH(Wjdz As String, Wjdate As String, Wjxh As Integer)
'wjdz:文件代字,wjdate:时间,whxh:文件顺序号
If IsNull(Wjdz) = True Or Wjdz = "" Then '如果文件没有代字，那么文号为空
    WH = ""
Else:
    If IsDate(Wjdate) = True Then '如果文件时间符合日期格式
        WH = Wjdz & "[" & Year(Wjdate) & "]" & Wjxh & "号"
        '比如，wjdz="中发";wjdate="2003-07-01";wjxh="8",文号为"中发[2003]8号"
        Else:
        WH = Wjdz & "[" & Left(Wjdate, 4) & "]" & Wjxh & "号"
        '比如，wjdz="中发";wjdate="20030701";wjxh="8",文号为"中发[2003]8号"
    End If
End If
End Function

chenghai

IsNull(Wjdz) = True 可能有问题。(但我测试过)
可以直接使用IsNull(Wjdz) 的。

Trynew

你这是把Null值赋给一个String时出错。有两个办法：
1、用Variant代替String参数类型，可以接受Null值。
Public Function WH(Wjdz As String, Wjdate As String, Wjxh As Integer)
改为：Public Function WH(Wjdz As Variant, Wjdate As String, Wjxh As Integer)

2、在赋值给函数的参数时判断处理Null值，如用Nz函数：
    MyWh=WH(Nz([wjdz]),[Date],[WJXH])

guoya

非常感谢楼上的指点，何时我发现还是出现错误的内容

Trynew

因为你的文件序号字段为空引起。注意其它两个参数也要用NZ()转换或其他方法处理一下（你是戴了帽子，忘了穿裤：）。
Null值不处理好，经常会出些意想不到和莫名其妙的Bug，为了防止Null值引起错误，除了用ISNull()判断，NZ()转换，使用Variant变体类型外，还有就是把字段定义为不允许空值，以及加上错误捕捉语句。

guoya

原来如此，我懂了，非常感谢！
我将Public Function WH(Wjdz As String, Wjdate As String, Wjxh As Integer)
改为：Public Function WH(Wjdz As Variant, Wjdate As Variant, Wjxh As Variant)成功