Question

急~~请高手指教VB实时错误“94”无效使用null

在运行添加图书窗体时提示“实时错误“94”无效使用null ”接着出现窗体代码“Combo1.AddItem g_rs!类别代码 + "-" + g_rs!书籍类别”显示黄色。窗体代码加载如下
Private Sub Form_Load()
s
DTPicker1.Value = Date
Set g_rs = g_db.OpenRecordset("booktype", dbOpenTable)
Combo1.Clear
If g_rs.RecordCount > 0 Then
g_rs.MoveFirst
Do While Not g_rs.EOF
Combo1.AddItem g_rs!类别代码 + "-" + g_rs!书籍类别
g_rs.MoveNext
Loop
Set g_rs = Nothing
Else
MsgBox "请先设置书籍类别代码！", vbInformation + vbOKOnly, "警告"
setbooktype.Show
Unload Me
End If

End Sub
谢谢你，我已经找到答案了。是连接符号的问题。应该是把 “+”改成“&”号进行连接的

Answer 1

因为你的数据库中类别代码字段或者书籍类别字段有null记录存在
Combo1.AddItem g_rs!类别代码 + "-" + g_rs!书籍类别
改成
Combo1.AddItem isnull(g_rs!类别代码,"",g_rs!类别代码) + "-" + isnull(g_rs!书籍类别,"",g_rs!书籍类别)