Question

VB实时错误94无效使用NULL

Private Sub list1disp()
Dim roww As Integer
roww = 1
list1.Clear
list1.Rows = 1
Call list1def
Data1.RecordSource = "rkd"
Data1.Refresh
If Data1.Recordset.EOF = False Then
Data1.Recordset.MoveFirst
End If
Do While Data1.Recordset.EOF = False
list1.Rows = list1.Rows + 1
list1.TextMatrix(roww, 0) = Data1.Recordset.Fields(0)
list1.TextMatrix(roww, 1) = Data1.Recordset.Fields(1)
list1.TextMatrix(roww, 2) = Data1.Recordset.Fields(2)
list1.TextMatrix(roww, 3) = Data1.Recordset.Fields(3)
list1.TextMatrix(roww, 4) = Data1.Recordset.Fields(4)
list1.TextMatrix(roww, 5) = Data1.Recordset.Fields(5)
list1.TextMatrix(roww, 6) = Data1.Recordset.Fields(6)
list1.TextMatrix(roww, 7) = Data1.Recordset.Fields(7)
list1.TextMatrix(roww, 8) = Data1.Recordset.Fields(8)
list1.TextMatrix(roww, 9) = Data1.Recordset.Fields(9)
list1.TextMatrix(roww, 10) = Data1.Recordset.Fields(10)
list1.TextMatrix(roww, 11) = Data1.Recordset.Fields(11)
list1.TextMatrix(roww, 12) = Data1.Recordset.Fields(12)
list1.TextMatrix(roww, 13) = Data1.Recordset.Fields(13)

roww = roww + 1
Data1.Recordset.MoveNext
Loop
End Sub

Answer 1

热 在哪里出错的也不发下！