可以啊: Dim adoRecordset As New ADODB.Recordset Private Sub Command1_Click() On Error Resume Next Dim num As String num = "" For i = 0 To adoRecordset.RecordCount - 1 '记录总行数 num = num & " " & DataGrid1.SelBooks(i) Next MsgBox "您选择了第" & num & "条记录" End Sub
Dim adoRecordset As New ADODB.Recordset
Private Sub Command1_Click()
On Error Resume Next
Dim num As String
num = ""
For i = 0 To adoRecordset.RecordCount - 1 '记录总行数
num = num & " " & DataGrid1.SelBooks(i)
Next
MsgBox "您选择了第" & num & "条记录"
End Sub
但是这样如果记录很多,是不是很慢
能不能不循环,直接取到selbooks的所有book
能不能知道选择了几个纪录,而不用循环adoRecordset.RecordCount - 1 次