[ツリー表示へ] [ワード検索] [Home]
タイトル ： GrapeCity MultiRowの行追加機能について 投稿日 ： 2013/10/08(Tue) 18:43 投稿者 ： halo
| はじめまして。 １０年ぶりにこちらのサイトにお邪魔させていただきます。 環境：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 'データが存在しない為、ＳＥＱを"1"にする .Item(intRow, con_col１Q).Value = 1 .Item(intRow, con_col２Q).Value = 0 Else bln表示 = True 'チェック①＆②共にＯＫのとき If bln表示 = True Then .Item(intRow, con_col１).Value = CInt(dbTbl.Rows(intLoop)("SEQ")) .Item(intRow, con_col２).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 *********************************************************************************** ご教授のほどよろしくお願いいたします。 |
をクリックするとツリー全体を一括表示します） - GrapeCity MultiRowの行追加機能について - halo 13/10/08-18:43No.11167