出错代码如下:
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 , 到底该如何判断?
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 , 到底该如何判断?
If format(rs.Fields("单位").Value) = vbnullstring Then ......
szUnit = ""
Else
szUnit = rs.Fields("单位").Value
End If
这一句话搞定,不用判断
这一句话搞定,不用判断呵呵,借用楼上的