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，不能繼續！