对快捷菜单中的行删除作了以下修改,希望删除多行该怎么修改?
For i As Integer = CurrentTable.TopPosition To CurrentTable.BottomPosition
Dim r As Row = CurrentTable.Current
Dim msg As String = "D#" & CurrentTable.DataTable.name & "#" & r("_Identify")
r.Delete()
CurrentTable.DataTable.Save()
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
Next