出错代码如下:
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
Sql = "select 字段数,表头合并,单位 from 表规格 where 表名称='" & szTableName & "'"
rs.Open Sql, cn, adOpenKeyset, adLockOptimistic
col = rs.Fields("字段数").Value
bMerge = rs.Fields("表头合并").Value
If rs.Fields("单位").Value = Null Then    '数据表中单位字段为空(字串型)
    szUnit = ""
Else
    szUnit = rs.Fields("单位").Value
End If上面的代码不能运行倒szUnit =""这一句,而且直接赋值szUnit=rs.Fields("单位").Value , 到底该如何判断?

解决方案 »

  1.   

    szUnit = isnull(rs.Fields("单位").Value,"",rs.Fields("单位").Value)
      

  2.   

    这样也可以:
    If format(rs.Fields("单位").Value) = vbnullstring Then ......
      

  3.   

    If rs.Fields("单位").Value = "" Then
      

  4.   

    If IsNull(rs.Fields("单位").Value) Then    '数据表中单位字段为空(字串型)
        szUnit = ""
    Else
        szUnit = rs.Fields("单位").Value
    End If
      

  5.   

    szUnit = rs.Fields("单位").Value & ""
    这一句话搞定,不用判断
      

  6.   

    szUnit = format(rs.Fields("单位").Value)
    这一句话搞定,不用判断呵呵,借用楼上的