主题：表中AfterSelRangeChange和click单击事件冲突问题

With e.Table
    If .BottomPosition - .TopPosition > 0 Then
        For i As Integer = .TopPosition To .BottomPosition
            .Rows(i).checked = True
        Next
    End If
End With

-----------------

Dim t As Table = e.Table
Dim r As Row = T.Current
If t.BottomPosition-t.TopPosition = 0 Then
    r.Checked  = not r.Checked
End If