Question

vb中 错误是无效使用NULL，为什么？？错误出现在那？？

Public Sub showdata() '显示数据

Dim j As Integer
Dim i As Integer

Dim mrc As ADODB.Recordset
Set mrc = New ADODB.Recordset

Set mrc = ExecuteSQL(txtsql)

If mrc.EOF = False Then
mrc.MoveFirst
With MSF1
.Rows = 50
.Row = 1
Do While Not mrc.EOF
.Rows = .Rows + 1
For i = 1 To mrc.Fields.Count
.TextMatrix(.Row, i) = mrc.Fields(i - 1) \\错误语句 无效使用NULL
Next i
.Row = .Row + 1
mrc.MoveNext
Loop
End With
Else
If chazhao = True Then
Form15.Hide
Form2.Show
zzz = MsgBox("对不起，没有此学生的档案记录！", vbOKOnly, "查询")
Form2.ZOrder (0)
Form2.Text1(0).SetFocus

End If
End If
Set mrc = Nothing
End Sub
Private Sub TreeView1_DblClick()
On Error GoTo ss
If TreeView1.SelectedItem.Index = 0 Then
MSF1.Clear
Exit Sub
End If
txtsql = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)

txtsql = "select 学生信息表.学号,学生信息表.姓名,学生信息表.出生年月,学生信息表.性别,班级表.专业,班级表.班级,学生信息表.学制,学生信息表.籍贯,学生信息表.联系地址,学生信息表.联系电话,学生信息表.入学时间,学生信息表.备注 from 学生信息表 inner join 班级表 on 学生信息表.班级=班级表.班级 where 学生信息表.班级='" & txtsql & "' order by 班级表.年级,班级表.班级 ,学生信息表.学号 "
printstr = txtsql
Me.Caption = "浏览学生档案"
Me.showtitle
Me.showdata
Exit Sub
ss:
MSF1.Clear
End Sub

错误是无效使用NULL，为什么？？错误出现在那

Answer 1

.TextMatrix(.Row, i) = mrc.Fields(i - 1) \\错误语句 无效使用NULL

出现以上情况是因为你的数据库里对应字段的记录内容为空（NULL），你可以加个判断或者错误处理，如下：

判断：
.TextMatrix(.Row, i) = IIf(IsNull(mrc.Fields(i - 1))=True,"",mrc.Fields(i - 1)) '如果字段内容为空值，则用""表示，否则用字段内容表示

错误处理：在语句With MSF1 之前加上这句On Error Resume Next

看得明白吧？

Answer 2

你的数据库中有个数据是null值，它不能传给文本框，你将
.TextMatrix(.Row, i) = mrc.Fields(i - 1)
改成
.TextMatrix(.Row, i) = isnull(mrc.Fields(i - 1),"",mrc.Fields(i - 1))