Question

vb中 错误是无效使用NULL 求高手指教

本人使用的是data数据控件与MsFlexGrid的绑定！！代码如下：
Me.Data1.Refresh \\不知为什么这边也会提示有错误
Me.Data1.Recordset.MoveLast
Me.Data1.Recordset.MoveFirst
For i = 1 To Me.Data1.Recordset.RecordCount
Me.Combo1.AddItem Me.Data1.Recordset.Fields(4) \\错误是无效使用NULL
Me.Data1.Recordset.MoveNext
Next i
Me.Combo1.ListIndex = 0
End Sub

Answer 1

Me.Combo1.AddItem "" & Me.Data1.Recordset.Fields(4)

这样就解决了。

Answer 2

if vartype(Me.Data1.Recordset.Fields(4))<>vbNull then
Me.Combo1.AddItem Me.Data1.Recordset.Fields(4)
else
Me.Combo1.AddItem " "
end if

Answer 3

把工程发过来 运行一下才知道了。。。QQ286350823