タイトル | : GrapeCity MultiRowの行追加機能について |
記事No | : 11167 |
投稿日 | : 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 ***********************************************************************************
ご教授のほどよろしくお願いいたします。
|