tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルGrapeCity MultiRowの行追加機能について
記事No11167
投稿日: 2013/10/08(Tue) 18:43
投稿者halo
はじめまして。
10年ぶりにこちらのサイトにお邪魔させていただきます。

環境:VS2005(VB開発) 
   GrapeCity MultiRow for Windows5.0

上記環境で入力プログラムを作成しているのですが、下記内容のエラーが表示されてしま
います。

[プログラムがセル値の変更をコミットまたは中止出来ないため、操作が失敗しました。]

処理内容は、MultiRowで作成された明細領域で”行追加”処理をしたときに表示されます
SELECTで対象データを取得後、明細行に表示かけるのですが、その際に行追加をしています。

同様に、行削除の時もメッセージが表示されました。


***********************************************************************************
With mlrInfo
      intRow = .CurrentCell.RowIndex
      If dbTbl.Rows.Count = 0 Then
         MsgBox("この番号は存在しません", MsgBoxStyle.OkOnly, m_strFmName)
         dbTbl.Clear()
         Add_Mode = ""
         Exit Sub
      Else
         Add_Mode = "ON"
         intLoop = 0
         If strHand <> "ON" Then
             .rows.removeat(introw)  ← ここの行
         End If
         '工程の表示
         Do Until intLoop > dbTbl.Rows.Count - 1
             If strHand <> "ON" Then
                 .Rows.Add(1)  ← ここの行
             Else
                 strHand = ""
             End If
             If dbTbl.Rows(intLoop)("SEQ").ToString = "" Then
                 'データが存在しない為、SEQを"1"にする
                .Item(intRow, con_col1Q).Value = 1
                 .Item(intRow, con_col2Q).Value = 0
             Else
                  bln表示 = True
                  'チェック@&A共にOKのとき
                  If bln表示 = True Then
                  .Item(intRow, con_col1).Value = CInt(dbTbl.Rows(intLoop)("SEQ"))
                   .Item(intRow, con_col2).Value = 0
                  Else
                    dbTbl.Clear()
                    Exit Sub
                  End If
             End If
            intRow = intRow + 1
             intLoop = intLoop + 1
         Loop
     End If
      dbTbl.Clear()
      Add_Mode = ""
   End With
***********************************************************************************


ご教授のほどよろしくお願いいたします。

[ツリー表示へ]
タイトルRe: GrapeCity MultiRowの行追加機能について
記事No11168
投稿日: 2013/10/10(Thu) 18:21
投稿者halo

自己解決できました。   お騒がせしました。

[ツリー表示へ]