datagrid1.RecordSelectors =True
按ctrl键,选几个记录 Dim varBmk As Variant
For Each varBmk In DataGrid1.SelBooks
Data1.Recordset.Book = varBmk
Data1.Recordset.Delete
Data1.Refresh
Next
按ctrl键,选几个记录 Dim varBmk As Variant
For Each varBmk In DataGrid1.SelBooks
Data1.Recordset.Book = varBmk
Data1.Recordset.Delete
Data1.Refresh
Next
for i = 1 to datagrid1.selbooks.count
j = datagrid1.selbooks.item(i-1)
rstgrid.book = j
rstgrid.update...
next