把MsgFlexgrid(msgManualin)中的数据写进Acess中。到了i=2时就出错了。 
mrc.AddNew
    If msgManualin.TextMatrix(1, 1) <> "" Then
        For i = 1 To msgManualin.Rows - 2
            For j = 1 To 5
                mrc.Fields(j) = msgManualin.TextMatrix(i, j)
            Next j
            mrc.MoveNext
        Next i
        
    End If
    
    mrc.Update
    mrc.Close

解决方案 »

  1.   


        If msgManualin.TextMatrix(1, 1) <> "" Then
            For i = 1 To msgManualin.Rows - 2
                mrc.AddNew
                For j = 1 To 5
                    mrc.Fields(j) = msgManualin.TextMatrix(i, j)
                Next j
                mrc.Update
            Next i
            
        End If
        
        mrc.Close
      

  2.   

    我没仔细看把MRC.ADDNEW放错地方了