主题：[求助]甜版，如何用GetCheckedRows实现勾选行

参考 BeforeCheckRow 事件

If e.Row.Checked = False Then
    Dim count As Integer = 0
    Dim same As Boolean = False
    Dim pr As Row = Nothing
    For Each r As Row In e.Table.GetCheckedRows
        count+=1
        If pr IsNot Nothing Then
            If pr("第一列") = r("第一列") Then
                same = True
            End If
        End If
        pr = r
    Next
    If count >= 8 AndAlso same Then
        msgbox("不能勾选了")
        e.cancel = True
    End If
End If