因为用ctrl选多条纪录时,箭头指向的记录不变 
所以无法得到所选取的高亮显示但不被箭头指向的纪录 

解决方案 »

  1.   

    可以啊:
    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
      

  2.   

    谢谢northwolves
    但是这样如果记录很多,是不是很慢
    能不能不循环,直接取到selbooks的所有book
      

  3.   

    我的意思是
    能不能知道选择了几个纪录,而不用循环adoRecordset.RecordCount - 1 次