AfterSelRangeChange 事件
If e.Table.BottomPosition - e.Table.TopPosition >= 1 Then For i As Integer = e.Table.TopPosition To e.Table.BottomPosition e.Table.Rows(i).Checked = True NextEnd If