把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
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
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