如下程序，我想他能不间断就能循环完！该怎么做？

Question

Private Sub Command1_Click()For j = 1 To 13Data1.Recordset.MoveFirstre: For i = 0 To 5If i > 0 Then Data1.Recordset.MoveNextr=Data1.Recordset.Fields(j)；在这里的是后，在调入的数据Data1.Recordset.Fields(j)是NULL，无法继续进行循环a(j, i) = rPrint a(j, i)Next iNext jEnd Sub请高手帮帮忙！万分感谢！不是调入的Data1.Recordset.Fields(j)是错的，是循环了几次后，遇到data1里面有空值的数据，在赋值时为NULL，不能继续！

Answer 1

r = iif( isnull( Data1.Recordset.Fields(j) ) , 0,Data1.Recordset.Fields(j))
或者写一个公用函数
这种地方涉及数据库的地方都会用到

Answer 2

r=0
If not IsNull(Data1.Recordset.Fields(j)) Then
r=Data1.Recordset.Fields(j)
End If