Question

VB调试中说无效使用值NULL，求高手指点

Do While Not ADOrs2.EOF And n <= ADOrs2.PageSize
strRecord = Trim(ADOrs2.Fields("住户号")) & vbTab & Trim(ADOrs2.Fields("户主名")) & vbTab
strRecord = strRecord & Trim(ADOrs2.Fields("物业号")) & vbTab & Trim(ADOrs2.Fields("入住时间")) & vbTab & Trim(ADOrs2.Fields("车库号")) & vbTab
strRecord = strRecord & vbTab & Trim(Str(ADOrs2.Fields("物业费")))
MSFlexGrid1.AddItem strRecord
ADOrs2.MoveNext
n = n + 1
Loop

Answer 1

取出的数据字段值可能有null值，
赋值前，最好转化一下,null值是不能直接用的。
Public Function fun_ReturnNull(feilds As ADODB.Field) As String
'函数，用于把字段中的null转换成空字符串。
On Error Resume Next
If IsNull(feilds) Then
fun_ReturnNull = ""
Else
fun_ReturnNull = feilds.Value

End If
End Function