afterCheckRow事件
If e.Row.Checked Then For Each r As Row In e.Table.Rows If r.Index <> e.Row.Index Then r.Checked = False End If NextEnd If