Adodc1控件与DataGrid1绑定后,如何同时删除多个记录

Question

Adodc1控件与DataGrid1绑定后,
DataGrid1读入数据后,我在操作DataGrid1控件,用光标操作选择啦多条记录.
然后我使用Adodc1控件
Adodc1.Recordset.Delete
Adodc1.Recordset.UpdateBatch
adodc1.Refresh 它还是只可以删除当前一条,不可以删除我选择的多条记录.如何实现删除在DataGrid1控件里选择的多条记录呢

Answer 1

改用mshflexgrid,因为它支持多选。多选后处理删除即可。

Answer 2

selbooks为你选择的标签
sub deleterows()
    Dim varBmk As Variant
    For Each varBmk In DataGrid1.SelBooks
        data1.Recordset.Book = varBmk
        data1.Recordset.Delete
        data1.Refresh
    Next
sub