+- Curl Global Community (https://communities.curl.com)
+-- Forum: Discussions (https://communities.curl.com/forumdisplay.php?fid=1)
+--- Forum: General Curl questions (https://communities.curl.com/forumdisplay.php?fid=2)
+--- Thread: delete-all ではレコードは実際に削除されていない？ (/showthread.php?tid=996)
delete-all ではレコードは実際に削除されていない？ - umemura - 10-24-2013
ReocrdSet.delete-all をコールした際、RecordsBulkChanges が発生すると思いますが、
このイベントの中で、レコードの数を見ると、削除される前の件数が取得されます。
after 句を使っても、件数は同じでした。
どうすれば、削除されたあとの件数（つまり０件）を取得できますか？
Code:
{let rs:RecordSet =
{RecordSet
{RecordFields
{RecordField "First", domain = String},
{RecordField "Last", domain = String},
{RecordField "Age", domain = int}
},
{RecordData First = "John", Last = "Smith", Age = 25},
{RecordData First = "Jane", Last = "Smith", Age = 29},
{RecordData First = "Jane", Last = "Jones", Age = 28},
{on e:RecordsBulkChanges at rs:RecordSet do
{popup-message "RecordsBulkChanges レコード数:" & rs.size}
{after 1s do
{popup-message "RecordsBulkChanges after レコード数:" & rs.size}
}
},
{on e:RecordRemoved at rs:RecordSet do
{popup-message "RecordRemoved レコード数:" & rs.size}
}
}
}
{def rg = {RecordGrid record-source = rs}}
{VBox rg,
{CommandButton
label = "delete-all",
{on Action do
{rs.delete-all}
}
}}RE: delete-all ではレコードは実際に削除されていない？ - umemura - 10-24-2013
delete-all の後に、ReocrdSet.commit をコールすれば、
再度RecordsBulkChanges が発生して、0件として取得できました。
できればコミットしなくても、 delete-all で削除された結果を取得したいのですが、
不可能なのでしょうか・・・。
RE: delete-all ではレコードは実際に削除されていない？ - umemura - 10-25-2013
ちょっと勘違いしていました。
ReocrdSet.delete-all でレコードを削除しても、RecordSet のレコードとして除外されるわけではなく、
そのレコードの状態（Reocrd.state）が「削除」という状態になるだけなのですね。
配列から remove したり、グラフィックから detache するのと同じ感覚ではいけないということですね。
下記のように削除状態のレコードを判別すれば正常に削除後のレコードの研修を取得できました。
Code:
def delete-records =
{rs.select
filter = {RecordFilter
{proc {r:Record}:bool
{if RecordState.deleted == r.state then
{return true}
else
{return false}
}
}
}
}
{popup-message "RecordsBulkChanges 削除済みレコード数:" & delete-records.size}