[リストへもどる]
一括表示
投稿時間：2002/11/27(Wed) 20:58
投稿者名：tomo
ＵＲＬ　：
タイトル：MSFlexGridで削除できない
はじめましてともです（すごく初心者です）
しつもんは以下の様です。

データベースへのアクセス
　　
　　Set WrkJet = CreateWorkspace("", "admin", "")
    Set MyDB = WrkJet.OpenDatabase(gDBName)
    LoadPatiData.Data1.DatabaseName = gDBName
    Set MyRS = MyDB.OpenRecordset("Patient Data", dbOpenDynaset)
'データフォームロード時はデータ更新が新しい方から
Data1.RecordSource = "SELECT * FROM [Patient Data] order by date DESC "


削除ボタンを押したときの処理
MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)

WrkJet.CommitTrans

と言う感じでやってるんですがフォーム上では消えるのにDBでは消えてません
フォームをリフレッシュするとでてきます
どこがおかしいのですか？

投稿時間：2002/11/27(Wed) 22:13
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re: MSFlexGridで削除できない
MSFlexGridの行を削除しても、元データは削除されません。

ヘルプの「フレキシブル グリッド コントロール」の項にも、
  『データ (Data) コントロールに連結すると、読み取り専用のデータが表示されます。』
と明記されていますよね。


> MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)

データコンシューマ(この場合はMSFlexGrid)側ではなく、
データソース(この場合はDataコントロール)側のデータを削除しましょう。

投稿時間：2002/11/28(Thu) 08:54
投稿者名：tomo
ＵＲＬ　：
タイトル：Re^2: MSFlexGridで削除できない
ありがとうございます。
　MSFlexGrid1_Click()に
　　Data1.Recordset.Move (MSFlexGrid1.Row)を追加
　Deleteを行うイベント内に
　　Data1.Recordset.Delete
を追加したところDB内も削除されました。