主题：[求助]复选框问题

aftercheckrow事件

If e.Row.Checked Then
    For Each r As Row In e.Table.GetCheckedRows
        If  r.index <> e.Row.index
            r.Checked  = False
        endif
    Next
End If