投稿日 | : 2004/08/30(Mon) 10:40 |
投稿者 | : グリッター |
Eメール | : |
URL | : |
タイトル | : フレキシブル・グリッド・コントロールでレコードを更新したい |
おはようございます。
お世話になります。
早速ですが、フレキシブル・グリッド・コントロールに
連結しているレコードセットを更新したのですが、
次のエラーになってしまいます。
何処に問題が有るのでしょうか?
よろしくお願いします。
行が見つからなかったため、更新できません。
最終読み取り時以降に値が変更された可能性があります。
ADO Dta Control: datPrimaryRS
Mode: adModeReadWrite
Flexible Grid Control: grdDataGrid
DataSource: datPrimaryRS
テキスト・コントロール配列: txt_Edit
-------------------------------------------------
Dim lng_MaxIndex As Long
Dim lng_i As Long
If ( _
grdDataGrid.Columns.Count > (txt_Edit.ubound + 1) _
) Then
lng_MaxIndex = txt_Edit.ubound
Else
lng_MaxIndex = grdDataGrid.Columns.Count
End If
For lng_i = 0 To lng_MaxIndex
Me!lbl_Edit(lng_i) = _
grdDataGrid.Columns(lng_i).Caption
grdDataGrid.Columns(lng_i) = _
Me!txt_Edit(lng_i).Text
'Me!lbl_Edit(lng_i).Caption = "Command"
'Me!lbl_Edit(lng_i).Visible = False
'Me!txt_Edit(lng_i) = ""
'Me!txt_Edit(lng_i).Visible = False
Next
grdDataGrid.Refresh
datPrimaryRS.Recordset.UpdateBatch adAffectAll '上記エラー
For lng_i = 0 To lng_MaxIndex
Me!lbl_Edit(lng_i).Caption = "Command"
Me!lbl_Edit(lng_i).Visible = False
Me!txt_Edit(lng_i) = ""
Me!txt_Edit(lng_i).Visible = False
Next
Me!lbl_EditTitle.Visible = False
Me!cmd_Update.Visible = False
-------------------------------------------------