タイトル : Re^3: MsFlexGridについて 投稿日 : 2008/01/10(Thu) 02:05 投稿者 : かず
これでは、どうしても保存できません。なぜでしょうか? ご教授お願いします。 Private Sub 戻る_Click() 'データの上書保存処理 Dim lngCountI As Long 'ループのカウンタ Dim seitoKB As String '生徒区分 Dim gakkoID As String '学校ID Dim sikenID As String '試験ID Dim nengetu As String '年月 Dim tensuu As Integer '点数 Dim kokugo As Integer '国語 Dim shakai As Integer '社会 Dim suugaku As Integer '数学 Dim rika As Integer '理科 Dim eigo As Integer '英語 Set db = OpenDatabase(drvList & flName) '***** 度数分布テーブルのオープン ***** Set rst = db.OpenRecordset("T_度数分布") With MSFlexGrid1 .Visible = False '一旦非表示に(読込が早くなる) '現在の状態を配列に再読込 For lngCountI = 1 To .Rows - 1 .Row = lngCountI .Col = 1 seitoKB = .Text .Col = 2 gakkoID = .Text .Col = 3 sikenID = .Text .Col = 4 nengetu = .Text .Col = 5 tensuu = .Text .Col = 6 kokugo = .Text .Col = 7 shakai = .Text .Col = 8 suugaku = .Text .Col = 9 rika = .Text .Col = 10 eigo = .Text With rst .Edit ![生徒区分] = seitoKB ![学校ID] = gakkoID ![試験ID] = sikenID ![年月] = nengetu ![点数] = tensuu ![国語] = kokugo ![社会] = shakai ![数学] = suugaku ![理科] = rika ![英語] = eigo .Update End With Next lngCountI End With rst.Close db.Close Set db = Nothing Set rst = Nothing Unload 度数分布入力画面 メインメニュー.Show End Sub |