tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。