VB里DBGrid控件，怎样进行多行选择，然后删除？请各位兄弟帮忙？

Question

鼠标按下时，把ROW记下来给V1。
鼠标松开时，把SELROW记下来给V2。
如果是从下向上选多行，把V2和V1交换。
用循环删除.
for i=V1 to v2
 delte....
next i
我记得是这样的。

Answer 1

Private Sub GridMain_SelChange(Cancel As Integer) '多行选择
   On Error Resume Next
   Dim i As Double
   Dim t As Integer
   resulet = GetAsyncKeyState(16) '监测键盘是否按住shift键
   
   If resulet = -32767 Then '如果按住
      t = rs_Table.Book
      If Y < t Then
        For i = Y To t
         GridMain.SelBooks.Add Val(i)
        Next
      Else
        For i = t To Y
          GridMain.SelBooks.Add Val(i)
        Next
      End If
      Exit Sub
   End If
   If GetAsyncKeyState(17) = -32767 Then
      Cancel = 1
      Exit Sub
   End If
      'Y全局变量
      Y = rs_Table.Book
   
End Sub