[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2004/08/30(Mon) 10:40
投稿者名：グリッター
Ｅメール：
ＵＲＬ　：
タイトル：フレキシブル・グリッド・コントロールでレコードを更新したい
おはようございます。
お世話になります。

早速ですが、フレキシブル・グリッド・コントロールに
連結しているレコードセットを更新したのですが、
次のエラーになってしまいます。
何処に問題が有るのでしょうか？

よろしくお願いします。

行が見つからなかったため、更新できません。
最終読み取り時以降に値が変更された可能性があります。

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
-------------------------------------------------

投稿時間：2004/08/30(Mon) 11:54
投稿者名：グリッター
Ｅメール：
ＵＲＬ　：
タイトル：フレキシブル・グリッド・コントロールでレコードを更新したい
すみません。

もしかしてと思って、
直接入力しても、別のレコードへ移動しようとすると、
同じエラーになってしまいました。
何処の設定が良くないのでしょうか？

よろしくお願いします。

投稿時間：2004/08/30(Mon) 11:57
投稿者名：グリッター
Ｅメール：
ＵＲＬ　：
タイトル：Re: フレキシブル・グリッド・コントロールでレコードを更新したい
> 直接入力しても、別のレコードへ移動しようとすると、
> 同じエラーになってしまいました。
チョット書き漏れてしまいました。

フレキシブル・グリッドへ直接入力しても、

です。
よろしくお願いします。

投稿時間：2004/08/30(Mon) 13:16
投稿者名：LESIA
Ｅメール：
ＵＲＬ　：
タイトル：Re: フレキシブル・グリッド・コントロールでレコードを更新したい
>     If ( _
>         grdDataGrid.Columns.Count > (txt_Edit.ubound + 1) _
>         ) Then

フレキシブルグリッドコントロールには、Columnsコレクションはないですが…。
ひょっとしてデータグリッドコントロールではないですか？

投稿時間：2004/08/30(Mon) 14:14
投稿者名：グリッター
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: フレキシブル・グリッド・コントロールでレコードを更新したい
> >     If ( _
> >         grdDataGrid.Columns.Count > (txt_Edit.ubound + 1) _
> >         ) Then
>
> フレキシブルグリッドコントロールには、Columnsコレクションはないですが…。
> ひょっとしてデータグリッドコントロールではないですか？
すみません。
おっしゃるとおりでした。
データグリッドコントロールでは更新は出来ないのでしょうか？
(^_^;)

投稿時間：2004/08/30(Mon) 14:50
投稿者名：グリッター
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: フレキシブル・グリッド・コントロールでレコードを更新したい
フレキシブル・グリッド・コントロールを貼り付けてみました。
これは、グリッドへ直接入力さえも出来ないのですね！

元のデータグリッドコントロールの方ですが、
相変わらず、直接入力でのレコード更新さえ出来ません。
何処の設定が悪いのか、何方かよろしくお願いします。
m(__)m

投稿時間：2004/09/06(Mon) 22:18
投稿者名：グリッター
Ｅメール：
ＵＲＬ　：
タイトル：Re: 解決しました。
何とかいけるようになりました。
有難うございました。
m(__)m