タイトル : Re^4: MsFlexGridについて 投稿日 : 2008/01/10(Thu) 14:40 投稿者 : 花ちゃん
> ![理科] = rika > ![英語] = eigo > .Update .MoveNext 'この1行を追加して見て下さい。 > End With > Next lngCountI > End With 下記のような方法でもいいはずです。 --------------------------------------------------------------- Dim i As Long Dim j As Long For i = 1 To MSFlexGrid1.Rows - 1 RS.Edit For j = 0 To MSFlexGrid1.Cols - 1 '各フィールドに表示データを追加 RS.Fields(MSFlexGrid1.TextMatrix(0, j)).Value = MSFlexGrid1.TextMatrix(i, j) Next j RS.Update RS.MoveNext Next i |